/[gnatsweb]/gnatsweb/gnatsweb.pl
ViewVC logotype

Diff of /gnatsweb/gnatsweb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.99 by yngves, Tue Sep 17 16:26:56 2002 UTC revision 1.100 by yngves, Tue Sep 24 20:33:14 2002 UTC
# Line 1893  sub query_page Line 1893  sub query_page
1893                             -values=>\@fieldnames,                             -values=>\@fieldnames,
1894                             -multiple=>0,                             -multiple=>0,
1895                             -size=>1),                             -size=>1),
1896           "</td>\n</tr>\n",          "<br />",
1897            $q->checkbox_group(-name=>'reversesort',
1898                               -values=>['Descending Order'],
1899                               -defaults=>[]),
1900            "</td>\n</tr>\n",
1901          "<tr>\n<td></td>\n<td>",          "<tr>\n<td></td>\n<td>",
1902          $q->checkbox_group(-name=>'displaydate',          $q->checkbox_group(-name=>'displaydate',
1903                 -values=>['Display Current Date'],                 -values=>['Display Current Date'],
# Line 2085  sub advanced_query_page Line 2089  sub advanced_query_page
2089                             -values=>\@fieldnames,                             -values=>\@fieldnames,
2090                             -multiple=>0,                             -multiple=>0,
2091                             -size=>1),                             -size=>1),
2092           "</td>\n</tr>\n",          "<br />",
2093            $q->checkbox_group(-name=>'reversesort',
2094                               -values=>['Descending Order'],
2095                               -defaults=>[]),
2096            "</td>\n</tr>\n",
2097          "<tr>\n<td colspan=2>\n",          "<tr>\n<td colspan=2>\n",
2098          $q->checkbox_group(-name=>'displaydate',          $q->checkbox_group(-name=>'displaydate',
2099                 -values=>['Display Current Date'],                 -values=>['Display Current Date'],
# Line 2408  sub display_query_results Line 2416  sub display_query_results
2416    my(@query_results) = @_;    my(@query_results) = @_;
2417    my(@fields) = $q->param('columns');    my(@fields) = $q->param('columns');
2418    my $displaydate = $q->param('displaydate');    my $displaydate = $q->param('displaydate');
2419      my $reversesort = $q->param('reversesort');
2420    my($field, %fields);    my($field, %fields);
2421    
2422    my $num_matches = scalar(@query_results);    my $num_matches = scalar(@query_results);
# Line 2483  sub display_query_results Line 2492  sub display_query_results
2492                         @presplit_prs);                         @presplit_prs);
2493    } else {    } else {
2494      # sort alphabetically      # sort alphabetically
2495      @sorted_prs = sort({($a->[$sortbyfieldnum] || '') cmp ($b->[$sortbyfieldnum] ||'')}      @sorted_prs = sort({lc($a->[$sortbyfieldnum] || '') cmp lc($b->[$sortbyfieldnum] ||'')}
2496                         @presplit_prs);                         @presplit_prs);
   
2497    }    }
2498        
2499      @sorted_prs = reverse @sorted_prs if $reversesort;
2500    
2501    # Print the PR's.    # Print the PR's.
2502    my @fieldtypes = map { fieldinfo ($_, 'fieldtype') } @ufields;    my @fieldtypes = map { fieldinfo ($_, 'fieldtype') } @ufields;
2503    foreach (@sorted_prs)    foreach (@sorted_prs)

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26