Displaying Update.html prepares a transaction so it can tell you who would be emailed, but the transaction isn&#39;t committed.<br><br><div class="gmail_quote">2009/2/12 Chris Adams <span dir="ltr">&lt;<a href="mailto:chris@improbable.org">chris@improbable.org</a>&gt;</span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div class="Ih2E3d"><br>
On Feb 12, 2009, at 3:19 PM, Todd Chapman wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
It&#39;s no bug that RT doesn&#39;t let you change the past. I would hit the DB directly.<br>
</blockquote>
<br>
<br></div>
Bug was definitely too strong - I guess I was just thinking that it seems like this ended up being surprisingly invasive. Here&#39;s what the final code ended up looking like - one curiosity which this exposed is that on my 3.8.2 install simply displaying Update.html will create a transaction.<br>

<br>
Chris<br>
<br>
Interface/Web_Local.pm<br>
<br>
ProcessUpdateMessage: copied &amp; added to the %message_args initialization:<br>
 &nbsp; if ($args{ARGSRef}-&gt;{&#39;Created&#39;}) {<br>
 &nbsp; &nbsp; $message_args{&#39;Created&#39;} = $args{ARGSRef}-&gt;{&#39;Created&#39;};<br>
 &nbsp; }<br>
<br>
RT/Ticket_Local.pm:<br>
<br>
_RecordNote: copied and added after _NewTransaction call:<br>
<br>
 &nbsp; if ( $args{&#39;Created&#39;} ) {<br>
 &nbsp; &nbsp; RT::Logger-&gt;warning(&quot;Updating transaction #&quot; . $TransObj-&gt;id . &quot;: setting created date to &quot; . $args{&#39;Created&#39;} );<br>
 &nbsp; &nbsp; $TransObj-&gt;_Handle-&gt;UpdateRecordValue( Table =&gt; &#39;Transactions&#39;, Column =&gt; &#39;Created&#39;, Value =&gt; $args{&#39;Created&#39;}, PrimaryKeys =&gt; { id =&gt; $TransObj-&gt;id } );<br>
 &nbsp; }<br>
<br>
Ticket/Update.html - forked to add the date select since there&#39;s not a callback for it and running the field through RT::Date:<br>
&lt;table width=&quot;100%&quot; border=&quot;0&quot;&gt;<br>
+&lt;tr&gt;&lt;td class=&quot;label&quot;&gt;&lt;&amp;|/l&amp;&gt;Date&lt;/&amp;&gt;:&lt;/td&gt;&lt;td&gt;&lt;&amp; /Elements/SelectDate, Name =&gt; &quot;Created&quot;, Default =&gt; undef &amp;&gt;&lt;/td&gt;&lt;/tr&gt;<br>

<br>
...<br>
<br>
$m-&gt;callback( Ticket =&gt; $TicketObj, ARGSRef =&gt; \%ARGS, results =&gt; \@results, CallbackName =&gt; &#39;Initial&#39; );<br>
<br>
+if ( $ARGS{&#39;Created&#39;} ) {<br>
+ &nbsp; &nbsp; &nbsp; my $created_date = RT::Date-&gt;new( $TicketObj-&gt;CurrentUser );<br>
+ &nbsp; &nbsp; &nbsp; $created_date-&gt;Set( Format =&gt; &#39;Unknown&#39;, Value =&gt; $ARGS{&#39;Created&#39;}, Timezone =&gt; &quot;user&quot; );<br>
+ &nbsp; &nbsp; &nbsp; $ARGS{&#39;Created&#39;} = $created_date-&gt;ISO;<br>
+}<br>
+<br>
<br>_______________________________________________<br>
List info: <a href="http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-devel" target="_blank">http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-devel</a><br>
<br></blockquote></div><br>