Lines 359-368
sub getRecords {
Link Here
|
359 |
# Note: sort will override rank |
359 |
# Note: sort will override rank |
360 |
my $sort_by; |
360 |
my $sort_by; |
361 |
foreach my $sort (@sort_by) { |
361 |
foreach my $sort (@sort_by) { |
362 |
if ( $sort eq "author_az" ) { |
362 |
if ( $sort eq "author_az" || $sort eq "author_asc" ) { |
363 |
$sort_by .= "1=1003 <i "; |
363 |
$sort_by .= "1=1003 <i "; |
364 |
} |
364 |
} |
365 |
elsif ( $sort eq "author_za" ) { |
365 |
elsif ( $sort eq "author_za" || $sort eq "author_dsc" ) { |
366 |
$sort_by .= "1=1003 >i "; |
366 |
$sort_by .= "1=1003 >i "; |
367 |
} |
367 |
} |
368 |
elsif ( $sort eq "popularity_asc" ) { |
368 |
elsif ( $sort eq "popularity_asc" ) { |
Lines 389-398
sub getRecords {
Link Here
|
389 |
elsif ( $sort eq "acqdate_dsc" ) { |
389 |
elsif ( $sort eq "acqdate_dsc" ) { |
390 |
$sort_by .= "1=32 >i "; |
390 |
$sort_by .= "1=32 >i "; |
391 |
} |
391 |
} |
392 |
elsif ( $sort eq "title_az" ) { |
392 |
elsif ( $sort eq "title_az" || $sort eq "title_asc" ) { |
393 |
$sort_by .= "1=4 <i "; |
393 |
$sort_by .= "1=4 <i "; |
394 |
} |
394 |
} |
395 |
elsif ( $sort eq "title_za" ) { |
395 |
elsif ( $sort eq "title_za" || $sort eq "title_dsc" ) { |
396 |
$sort_by .= "1=4 >i "; |
396 |
$sort_by .= "1=4 >i "; |
397 |
} |
397 |
} |
398 |
else { |
398 |
else { |
Lines 2286-2292
sub NZorder {
Link Here
|
2286 |
# sort the hash and return the same structure as GetRecords (Zebra querying) |
2286 |
# sort the hash and return the same structure as GetRecords (Zebra querying) |
2287 |
my $result_hash; |
2287 |
my $result_hash; |
2288 |
my $numbers = 0; |
2288 |
my $numbers = 0; |
2289 |
if ( $ordering eq 'author_za' ) { # sort by author desc |
2289 |
if ( $ordering eq 'author_za' || $ordering eq 'author_dsc' ) { # sort by author desc |
2290 |
foreach my $key ( sort { $b cmp $a } ( keys %result ) ) { |
2290 |
foreach my $key ( sort { $b cmp $a } ( keys %result ) ) { |
2291 |
$result_hash->{'RECORDS'}[ $numbers++ ] = |
2291 |
$result_hash->{'RECORDS'}[ $numbers++ ] = |
2292 |
$result{$key}->as_usmarc(); |
2292 |
$result{$key}->as_usmarc(); |
2293 |
- |
|
|