[Rt-commit] r6257 - in rtir/branches/2.1-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Tue Oct 24 19:43:31 2006
New Revision: 6257

Modified:
   rtir/branches/2.1-EXPERIMENTAL/   (props changed)
   rtir/branches/2.1-EXPERIMENTAL/html/RTIR/Search/Elements/ShowResults

Log:
 r1755 at cubic-pc:  cubic | 2006-10-25 02:56:39 +0400
 * add shredder link to search results
 * add duplication XXX mark
 


Modified: rtir/branches/2.1-EXPERIMENTAL/html/RTIR/Search/Elements/ShowResults
==============================================================================
--- rtir/branches/2.1-EXPERIMENTAL/html/RTIR/Search/Elements/ShowResults	(original)
+++ rtir/branches/2.1-EXPERIMENTAL/html/RTIR/Search/Elements/ShowResults	Tue Oct 24 19:43:31 2006
@@ -32,17 +32,31 @@
                             Order     => $Order,
                           );
 </%PERL>
-% if ( $Queue eq 'Incident Reports') {
+
+%# XXX: this code is duplicated in html/Search/Elements/ResultViews (RT)
+% if ( $Queue eq 'Incident Reports' ) {
 <a href="<%RT->Config->Get('WebPath')%>/RTIR/Report/BulkReject.html?<% $QueryString %>"><&|/l&>Bulk Reject</&></a> |
 % }
 
 <a href="<% RT->Config->Get('WebPath') %>/Search/Results.tsv?<% $ShortQueryString %>"><&|/l&>spreadsheet</&></a> |
 <a href="<% RT->Config->Get('WebPath') %>/Search/Results.rdf?<% $ShortQueryString %>"><&|/l&>RSS</&></a> |
 
+<%PERL>
+if ( $session{'CurrentUser'}->HasRight( Right => 'SuperUser', Object => $RT::System ) ) {
+    my $query_string = $m->comp('/Elements/QueryString',
+        Search => 1,
+        Plugin => 'Tickets',
+        'Tickets:query' => $Query,
+        'Tickets:limit' => $Rows || '',
+    );
+</%PERL>
+<a href="<% RT->Config->Get('WebPath') %>/Admin/Tools/Shredder/?<% $query_string |n %>"><&|/l&>Shredder...</&></a>
+% }
+
 <form method="get" action="<% RT->Config->Get('WebPath') %>/Search/Chart.html"><&|/l&>chart</&>
 % my %hiddens = (Query => $Query, Format => $Format, Rows => $Rows, OrderBy => $OrderBy, Order => $Order);
 % foreach my $key ( keys %hiddens ) {
-<input type="hidden" class="hidden" name="<%$key%>" value="<%defined($hiddens{$key})?$hiddens{$key}:''%>" />
+<input type="hidden" class="hidden" name="<% $key %>" value="<% defined $hiddens{$key}? $hiddens{$key}: '' %>" />
 % }
 <&|/l, $m->scomp('/Search/Elements/SelectGroupBy', Name => 'PrimaryGroupBy') &>grouped by [_1]</&>
 <&|/l, $m->scomp('/Search/Elements/SelectChartType', Name => 'ChartStyle') &>style: [_1]</&>