Putting 4.2.0 on top of 4.0.17
[usit-rt.git] / share / html / Ticket / Elements / ShowDates
index e7d6bd1..ddb45f5 100644 (file)
     <td class="label"><&|/l&>Updated</&>:</td>\
 % my $UpdatedString = $Ticket->LastUpdated ? loc("[_1] by [_2]", $Ticket->LastUpdatedAsString, $m->scomp('/Elements/ShowUser', User => $Ticket->LastUpdatedByObj)) : loc("Never");
 % if ($UpdatedLink) {
-    <td class="value"><a href="#lasttrans"><% $UpdatedString | n %></a></td>
+    <td class="value"><a href="<% $UpdatedLink %>"><% $UpdatedString | n %></a></td>
 % } else {
     <td class="value"><% $UpdatedString | n %></td>
 % }
   </tr>
+  <& /Ticket/Elements/ShowCustomFields, Ticket => $Ticket, Grouping => 'Dates', Table => 0 &>
 % $m->callback( %ARGS, CallbackName => 'EndOfList', TicketObj => $Ticket );
 </table>
 <%ARGS>
 $Ticket => undef
 $UpdatedLink => 1
 </%ARGS>
+<%INIT>
+if ($UpdatedLink and $Ticket) {
+    my $txns = $Ticket->Transactions;
+    $txns->OrderByCols(
+        { FIELD => "Created",   ORDER => "DESC" },
+        { FIELD => "id",        ORDER => "DESC" },
+    );
+    $txns->RowsPerPage(1);
+
+    if (my $latest = $txns->First) {
+        $UpdatedLink = "#txn-" . $latest->id;
+    } else {
+        undef $UpdatedLink;
+    }
+}
+</%INIT>