rt 4.2.15

[freeside.git] / rt / share / html / Ticket / Elements / ShowRequestorTickets

diff --git a/rt/share/html/Ticket/Elements/ShowRequestorTickets b/rt/share/html/Ticket/Elements/ShowRequestorTickets
index 7bd17f1..392de30 100644 (file)
--- a/rt/share/html/Ticket/Elements/ShowRequestorTickets
+++ b/rt/share/html/Ticket/Elements/ShowRequestorTickets
@@ -2,7 +2,7 @@
 %#
 %# COPYRIGHT:
 %#
-%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2018 Best Practical Solutions, LLC
 %#                                          <sales@bestpractical.com>
 %#
 %# (Except where explicitly superseded by other copyright notices)
@@ -45,31 +45,21 @@
 %# those contributions and any derivatives thereof.
 %#
 %# END BPS TAGGED BLOCK }}}
-<span class="label">
-  <a href="<% $url %>"><&|/l, $Rows, $Description &>This user's [_1] highest priority [_2] tickets</&>:</a>
-</span>
-<ul>
-%while (my $w=$tickets->Next) {
-%my $uri = RT::URI->new( $session{'CurrentUser'} );
-%$uri->FromObject($w);
-<li class="value"><& /Elements/ShowLink, URI => $uri &></li>
-%}
-</ul>
+<& /User/Elements/TicketList,
+    User => $Requestor,
+    conditions => $conditions,
+    Rows => $Rows,
+    Title => $Title,
+    WatcherTypes => ['Requestor'],
+    Format =>  => RT->Config->Get('MoreAboutRequestorTicketListFormat'),
+ &>
 <%INIT>
-my $sql = "Requestor.id = ". $Requestor->id;
-if (@$conditions) {
-    $sql .= " AND (".join( " OR ", map $_->{cond}, @$conditions).")";
-}
-my $tickets = RT::Tickets->new( $session{'CurrentUser'} );
-$tickets->FromSQL( $sql );
-$tickets->RowsPerPage( $Rows );
-$tickets->OrderBy( FIELD => 'Priority', ORDER => 'DESC' );
+my $Title = loc("This user's [_1] highest priority [_2] tickets", $Rows, $Description );
 
-my $url  = RT->Config->Get('WebPath') . '/Search/Results.html?';
-   $url .= $m->comp('/Elements/QueryString',
-                    Query       => $sql,
-                    OrderBy     => 'Priority',
-                    Order       => 'DESC' );
+$m->callback( CallbackName => 'ModifyTitle',
+    %ARGS,
+    Title => \$Title
+);
 </%INIT>
 <%ARGS>
 $Requestor => undef