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>
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++ ) {
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 ) {
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 = {};