[Bps-public-commit] r13258 - RT-BugTracker-Public/html/Public/Dist

[ruz at bestpractical.com]

Author: ruz
Date: Thu Jun 12 21:23:17 2008
New Revision: 13258

Modified:
   RT-BugTracker-Public/html/Public/Dist/Display.html

Log:
* use new component

Modified: RT-BugTracker-Public/html/Public/Dist/Display.html
==============================================================================
--- RT-BugTracker-Public/html/Public/Dist/Display.html	(original)
+++ RT-BugTracker-Public/html/Public/Dist/Display.html	Thu Jun 12 21:23:17 2008
@@ -46,6 +46,7 @@
 %# 
 %# END BPS TAGGED BLOCK }}}
 <& /Elements/Header, Title => $title &>
+
 <& /Public/Elements/Tabs,
     Title => $title,
     queue => $Name,
@@ -55,18 +56,12 @@
 
 <& /Dist/Elements/ShowMaintainers, Queue => $QueueObj &>
 
-<h3>Bugs</h3>
-
-<& /Elements/TicketList,
-    OrderBy => $OrderBy,
-    Order   => $Order,
-    Query   => $Query,
-    Format  => $Format,
-    Rows    => $Rows,
-    Page    => $Page,
-    Name    => $Name,
-    AllowSorting => 1,
-    BaseURL => $base_url,
+<& /Dist/Elements/ShowBugs,
+    %ARGS,
+    Queue       => $QueueObj,
+    Status      => $Status,
+    ShowRSSLink => 0,
+    BaseURL     => $base_url,
 &>
 
 <%INIT>
@@ -80,33 +75,8 @@
 }
 $ARGS{'Name'} = $Name = $QueueObj->Name;
 
-unless ( ($Status||'') eq 'Active' || $QueueObj->IsValidStatus( $Status ) ) {
-    $m->comp('/Elements/Error', Why => q{no such status as '} . $Status . q{'});
-    $m->abort();
-}
-
-my $Query = "Queue = '$Name'";
-if ( $Status eq 'Active' ) {
-    $Query .= " AND ( "
-        .join( ' OR ', map "Status = '$_'", $QueueObj->ActiveStatusArray )
-        ." )";
-}
-else {
-    $Query .= " AND Status = '$Status'";
-}
-
 my $title = loc( "$Status bugs for [_1]", $Name );
 
-my $Format = <<EOF;
-'<a href="$RT::WebPath/Ticket/Display.html?id=__id__">__id__</a>/TITLE:ID',
-'<b><a href="$RT::WebPath/Ticket/Display.html?id=__id__">__Subject__</a></b>/TITLE:Subject',
-'__Status__',
-'__CustomField.{Severity}__',
-'<small>__LastUpdatedRelative__</small>',
-'__CustomField.{Broken in}__',
-'__CustomField.{Fixed in}__'
-EOF
-
 my $current_subtab = "Public/Dist/Display.html"
     ."?Status=". $m->interp->apply_escapes($Status, 'u')
     ."&Name=". $m->interp->apply_escapes($QueueObj->Name, 'u');
@@ -116,12 +86,8 @@
 
 </%INIT>
 <%ARGS>
-$Name => undef
+$Name   => undef
 # Queue is an alias for Name, Name has higher precendance
-$Queue => undef
-$Order => 'DESC'
-$OrderBy => 'LastUpdated'
-$Rows => undef
-$Page => 1
+$Queue  => undef
 $Status => 'Active'
 </%ARGS>