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'], |
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'], |
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); |
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) |