[Koha-cvs] koha/C4 Koha.pm Search.pm

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     paul poulain <tipaul>   07/06/26 09:20:22

Modified files:
        C4             : Koha.pm Search.pm 

Log message:
        why was title ordering on 1=36 ? in ccl.properties, it s 1=4. (1=36 
being for title-cover)
        thus, the title sorting was not working. This commit fixes the problem.
        LIBLIME : verify I am right in the analysis and in the fix, it is a 
part mostly written by joshua

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Koha.pm?cvsroot=koha&r1=1.54&r2=1.55
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&r1=1.147&r2=1.148

Patches:
Index: Koha.pm
===================================================================
RCS file: /sources/koha/koha/C4/Koha.pm,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- Koha.pm     25 Jun 2007 15:05:18 -0000      1.54
+++ Koha.pm     26 Jun 2007 09:20:21 -0000      1.55
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Koha.pm,v 1.54 2007/06/25 15:05:18 tipaul Exp $
+# $Id: Koha.pm,v 1.55 2007/06/26 09:20:21 tipaul Exp $
 
 use strict;
 require Exporter;
@@ -25,7 +25,7 @@
 use C4::Output;
 use vars qw($VERSION @ISA @EXPORT);
 
-$VERSION = do { my @v = '$Revision: 1.54 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.55 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -791,8 +791,8 @@
             value => "1=32 &lt;i",
             label => "&nbsp;&nbsp;&nbsp;Acquisition Date: Oldest to Newest"
         },
-        { value => "1=36 &lt;i", label => "Title (A-Z)" },
-        { value => "1=36 &gt;i", label => "Title (Z-A)" },
+        { value => "1=4 &lt;i", label => "Title (A-Z)" },
+        { value => "1=4 &gt;i", label => "Title (Z-A)" },
     ];
     for my $hash (@$sort_by_loop) {
 

Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -b -r1.147 -r1.148
--- Search.pm   15 Jun 2007 16:32:44 -0000      1.147
+++ Search.pm   26 Jun 2007 09:20:22 -0000      1.148
@@ -25,7 +25,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.147 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.148 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -238,7 +238,7 @@
         $expanded_facet, $branches,         $query_type,
         $scan
     ) = @_;
-
+    warn "Query : $koha_query";
     my @servers = @$servers_ref;
     my @sort_by = @$sort_by_ref;
 
@@ -1427,7 +1427,7 @@
     #
     # ORDER BY title
     #
-    } elsif ($ordering =~ /1=36/) { 
+    } elsif ($ordering =~ /1=4/) { 
         # the title is in the biblionumbers string, so we just need to build a 
hash, sort it and return
         my %result;
         foreach (split /;/,$biblionumbers) {
@@ -1441,7 +1441,7 @@
         # sort the hash and return the same structure as GetRecords (Zebra 
querying)
         my $result_hash;
         my $numbers=0;
-        if ($ordering eq '1=36 <i') { # sort by title desc
+        if ($ordering eq '1=4 <i') { # sort by title desc
             foreach my $key (sort (keys %result)) {
                 $result_hash->{'RECORDS'}[$numbers++] = $result{$key};
             }