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

Antoine Farnault antoine at koha-fr.org
Mon Oct 16 11:22:47 CEST 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	06/10/16 09:22:47

Modified files:
	C4             : Reserves2.pm 

Log message:
	Reserves2.pm now use Search.pm to call bibitemdata.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Reserves2.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.46.2.2&r2=1.46.2.3

Patches:
Index: Reserves2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.46.2.2
retrieving revision 1.46.2.3
diff -u -b -r1.46.2.2 -r1.46.2.3
--- Reserves2.pm	20 Sep 2006 15:47:49 -0000	1.46.2.2
+++ Reserves2.pm	16 Oct 2006 09:22:47 -0000	1.46.2.3
@@ -20,17 +20,18 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Reserves2.pm,v 1.46.2.2 2006/09/20 15:47:49 toins Exp $
+# $Id: Reserves2.pm,v 1.46.2.3 2006/10/16 09:22:47 toins Exp $
 
 use strict;
 require Exporter;
 use C4::Context;
 use C4::Biblio;
+use C4::Search;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 my $library_name = C4::Context->preference("LibraryName");
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.46.2.2 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.46.2.3 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -363,11 +364,11 @@
             my $bdata;
             if($count > 1){
                 warn "bibitemno $bibitemno[$i]";
-                $bdata = C4::Search::bibitemdata($bibitemno[$i]);
+                $bdata = bibitemdata($bibitemno[$i]);
                 $i++;
 			} else {
                 # Look up the book we just found.
-                $bdata = C4::Search::bibitemdata($bibitemno[0]);
+                $bdata = bibitemdata($bibitemno[0]);
         	}
            $csth->finish;
            # Add the results of this latest search to the current





More information about the Koha-cvs mailing list