Reverse sort order patch

[Lars Henriksen]

Some recent patches have added the possibility of selecting sort method
and (descending) order before making a query.

This patch is a supplement that makes it possible to reverse the sort
method from the query result page by adding a "Reverse sort order" link
after the "View for bookmarking" link.

Lars Henriksen

Index: gnatsweb.pl
===================================================================
RCS file: /cvsroot/gnatsweb/gnatsweb/gnatsweb.pl,v
retrieving revision 1.101
diff -c -r1.101 gnatsweb.pl
*** gnatsweb.pl 24 Sep 2002 20:39:17 -0000      1.101
--- gnatsweb.pl 29 Sep 2002 19:38:20 -0000
***************
*** 2554,2560 ****
    # fields, the url query-string will become very long.  this is a
    # problem, since IE5 truncates query-strings at ~2048 characters.
    $url =~ s/\w+=;//g;
!   print $q->p(qq{<a href="$url">View for bookmarking</a>\n});
  
    # Allow the user to store this query.  Need to repeat params as hidden
    # fields so they are available to the 'store query' handler.
--- 2554,2572 ----
    # fields, the url query-string will become very long.  this is a
    # problem, since IE5 truncates query-strings at ~2048 characters.
    $url =~ s/\w+=;//g;
!   print "<table cellspacing=0 cellpadding=3 border=0>",
!         "<tr valign=top><td>",
!         qq{<a href="$url">View for bookmarking</a>};
! 
!   # ... or reverse the sort method.
!   if ($reversesort) {
!     $url =~ s/;reversesort=[^;]*//;
!   } else {
!     $url .= $q->escapeHTML(";reversesort=Descending Order");
!   }
!   print "<td></td><td>",
!         qq{<a href="$url">Reverse sort order</a>},
!       "</tr></table>";
  
    # Allow the user to store this query.  Need to repeat params as hidden
    # fields so they are available to the 'store query' handler.