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

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	06/11/02 17:03:50

Modified files:
	C4             : Search.pm 

Log message:
	changing $bibid to $biblionumber in getMarcSubject.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.120.2.20&r2=1.120.2.21

Patches:
Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.120.2.20
retrieving revision 1.120.2.21
diff -u -b -r1.120.2.20 -r1.120.2.21
--- Search.pm	2 Nov 2006 15:31:23 -0000	1.120.2.20
+++ Search.pm	2 Nov 2006 17:03:50 -0000	1.120.2.21
@@ -39,7 +39,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.120.2.20 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.120.2.21 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -2429,7 +2429,7 @@
 
 
 sub getMARCsubjects {
-    my ($dbh, $bibid, $marcflavour) = @_;
+    my ($dbh, $biblionumber, $marcflavour) = @_;
     my ($mintag, $maxtag);
     if ($marcflavour eq "MARC21") {
             $mintag = "600";
@@ -2438,7 +2438,7 @@
         $mintag = "600";
         $maxtag = "619";
     }
-    my $record=MARCgetbiblio($dbh,$bibid);
+    my $record=MARCgetbiblio($dbh,$biblionumber);
     my @marcsubjcts;
     my $subjct = "";
     my $subfield = "";
@@ -2757,7 +2757,6 @@
     
     my @servers = @$servers_ref;
     my @sort_by = @$sort_by_ref;
-
     # create the zoom connection and query object
     my $zconn;
     my @zconns;
@@ -2817,7 +2816,6 @@
         # concatenate the sort_by limits and pass them to the results object
         my $sort_by;
         foreach my $sort (@sort_by) {
-            warn "sorting:$sort";
             $sort_by.=$sort." "; # used to be $sort,
         }
         $results[$i]->sort("yaz", $sort_by) if $sort_by;