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

[ruz at bestpractical.com]

Author: ruz
Date: Thu Jun 12 20:01:50 2008
New Revision: 13251

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

Log:
* more on generalization of Dist/Display.html

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 20:01:50 2008
@@ -70,9 +70,10 @@
 &>
 
 <%INIT>
+$Name = $Queue unless $Name;
 $Name =~ s/::/-/g;
 my $QueueObj = RT::Queue->new( $session{CurrentUser} );
-$QueueObj->Load($Name);
+$QueueObj->Load( $Name );
 unless ( $QueueObj->id ) {
     $m->comp('/Public/Elements/ErrorNoDist', Queue => $Name, %ARGS);
     $m->abort();
@@ -106,9 +107,9 @@
 '__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');
+my $current_subtab = "Public/Dist/Display.html"
+    ."?Status=". $m->interp->apply_escapes($Status, 'u')
+    ."&Name=". $m->interp->apply_escapes($QueueObj->Name, 'u');
 
 my ($base_url) = ($current_subtab =~ m|^Public/Dist/(.+)$|);
 $base_url .= '&';
@@ -116,6 +117,8 @@
 </%INIT>
 <%ARGS>
 $Name => undef
+# Queue is an alias for Name, Name has higher precendance
+$Queue => undef
 $Order => 'DESC'
 $OrderBy => 'LastUpdated'
 $Rows => undef