From 6a2c518efad8534088ead0b830d732e1bb8bbdab Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Wed, 18 Mar 2009 17:21:47 -0500 Subject: [PATCH] Add warning for unrecognized sort order. 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 --- C4/Search.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/C4/Search.pm b/C4/Search.pm index 59d0a08b64..f1b68b5321 100644 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -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 = {}; -- 2.39.5