Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Add warning for unrecognized sort order.

Browse source 
This may help elucidate problems we are having with sorts that
do not seem to work.  I.E., if the inteface is requesting
unrecognized sort orders, we need to know about it.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Joe Atzberger 2009-03-18 17:21:47 -05:00 committed by Galen Charlton
parent 2e08f626f5
commit 6a2c518efa
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
C4/Search.pm
View file

@ -331,8 +331,7 @@ sub getRecords {
my $facets_info = ();
my $facets = getFacets();
my @facets_loop
; # stores the ref to array of hashes for template facets loop
my @facets_loop; # stores the ref to array of hashes for template facets loop
### LOOP THROUGH THE SERVERS
for ( my $i = 0 ; $i < @servers ; $i++ ) {
@ -427,6 +426,9 @@ sub getRecords {
elsif ( $sort eq "title_za" ) {
$sort_by .= "1=4 >i ";
}
else {
warn "Ignoring unrecognized sort '$sort' requested";
}
}
if ($sort_by) {
if ( $results[$i]->sort( "yaz", $sort_by ) < 0 ) {
@ -625,7 +627,7 @@ sub pazGetRecords {
my $paz = C4::Search::PazPar2->new(C4::Context->config('pazpar2url'));
$paz->init();
$paz->search($simple_query);
sleep 1;
sleep 1; # FIXME: WHY?
# do results
my $results_hashref = {};