bring the queues filter to the top of the page

If you have many queues this avoids scrolling to the bottom.
This also brings the queues page in parity with users and groups.

share/html/Admin/Queues/index.html

@@ -51,24 +51,7 @@
 
 
 <h1><%$caption%></h1>
-<p><&|/l&>Select a queue</&>:</p>
-% unless ( $queues->Count ) {
-<em><&|/l&>No queues matching search criteria found.</&></em>
-% } else {
-<& /Elements/CollectionList,
-    OrderBy => 'Name',
-    Order => 'ASC',
-    Rows => 50,
-    %ARGS,
-    Format => $Format,
-    Collection => $queues,
-    AllowSorting => 1,
-    PassArguments => [qw(
-        Format Rows Page Order OrderBy
-        FindDisabledQueues QueueString QueueOp QueueField
-    )],
-&>
-% }
+
 <form method="post" action="<% RT->Config->Get('WebPath') %>/Admin/Queues/index.html">
 % foreach my $field( qw(Format Rows Page Order OrderBy) ) {
 %     next unless defined $ARGS{ $field } && length $ARGS{ $field };
@@ -89,6 +72,25 @@
 <div align="right"><input type="submit" class="button" value="<&|/l&>Go!</&>" /></div> 
 </form>
 
+<p><&|/l&>Select a queue</&>:</p>
+% unless ( $queues->Count ) {
+<em><&|/l&>No queues matching search criteria found.</&></em>
+% } else {
+<& /Elements/CollectionList,
+    OrderBy => 'Name',
+    Order => 'ASC',
+    Rows => 50,
+    %ARGS,
+    Format => $Format,
+    Collection => $queues,
+    AllowSorting => 1,
+    PassArguments => [qw(
+        Format Rows Page Order OrderBy
+        FindDisabledQueues QueueString QueueOp QueueField
+    )],
+&>
+% }
+
 <%INIT>
 my $queues = RT::Queues->new($session{'CurrentUser'});
 $queues->FindAllRows if $FindDisabledQueues;