[Bps-public-commit] r20177 - RT-BugTracker/html/Dist

[ruz at bestpractical.com]

Author: ruz
Date: Wed Dec  2 03:09:41 2009
New Revision: 20177

Modified:
   RT-BugTracker/html/Dist/BeginsWith.html
   RT-BugTracker/html/Dist/Browse.html
   RT-BugTracker/html/Dist/Search.html

Log:
* switch over to /Dist/Browse.html

Modified: RT-BugTracker/html/Dist/BeginsWith.html
==============================================================================
--- RT-BugTracker/html/Dist/BeginsWith.html	(original)
+++ RT-BugTracker/html/Dist/BeginsWith.html	Wed Dec  2 03:09:41 2009
@@ -45,26 +45,14 @@
 %# those contributions and any derivatives thereof.
 %# 
 %# END BPS TAGGED BLOCK }}}
-<& /Elements/Header, Title => $title &>
-<& /Dist/Elements/Tabs,
-    Title => $title,
-    current_tab => 'Dist/Browse.html',
-&>
-
-<& /Dist/Elements/BeginsWith, Name => $Name &>
-
-% if ( $queues ) {
-<& /Public/Elements/DistributionList, queues => $queues &>
-% }
-
-<%init>
-
-my ($queues, $title) = $m->comp(
-    '/Dist/Elements/BeginsWith:Process',
-    Name => $Name,
-);
-
-</%init>
-<%args>
+<%ARGS>
 $Name => undef
-</%args>
+</%ARGS>
+<%INIT>
+$Name = '' unless defined $Name;
+RT::Interface::Web::Redirect(
+    RT->Config->Get('WebURL')
+    .'/Dist/Browse.html'
+    .'?Name='. $m->interp->apply_escapes( $Name, 'u' )
+);
+</%INIT>

Modified: RT-BugTracker/html/Dist/Browse.html
==============================================================================
--- RT-BugTracker/html/Dist/Browse.html	(original)
+++ RT-BugTracker/html/Dist/Browse.html	Wed Dec  2 03:09:41 2009
@@ -45,19 +45,26 @@
 %# those contributions and any derivatives thereof.
 %# 
 %# END BPS TAGGED BLOCK }}}
-<& /Elements/Header, Title => loc("Browse Distributions") &>
+<& /Elements/Header, Title => $title &>
 <& /Dist/Elements/Tabs,
-    Title => loc("Browse Distributions"),
+    Title => $title,
     current_tab => 'Dist/Browse.html',
-    &>
+&>
 
-<p>
-Find distributions that start with...
-</p>
+<& /Dist/Elements/BeginsWith, Name => $Name &>
 
-<p>
-% for my $letter ("A".."Z") {
-<a href="<% $RT::WebPath %>/Dist/BeginsWith.html?Name=<% $letter %>"><% $letter %></a>
+% if ( $queues ) {
+<& /Public/Elements/DistributionList, queues => $queues &>
 % }
-</p>
 
+<%init>
+
+my ($queues, $title) = $m->comp(
+    '/Dist/Elements/BeginsWith:Process',
+    Name => $Name,
+);
+
+</%init>
+<%args>
+$Name => undef
+</%args>

Modified: RT-BugTracker/html/Dist/Search.html
==============================================================================
--- RT-BugTracker/html/Dist/Search.html	(original)
+++ RT-BugTracker/html/Dist/Search.html	Wed Dec  2 03:09:41 2009
@@ -60,7 +60,7 @@
 </p>
 
 <p>
-  <form action="/Dist/BeginsWith.html" method="get">
+  <form action="/Dist/Browse.html" method="get">
     <label for="form-dist-name"><&|/l&>Find distributions by beginning of name:</&></label>
     <input type="text" name="Name" id="form-dist-name" />
     <input type="submit" class="button" value="<&|/l&>Search</&>" />