[Koha-cvs] koha barcodes/label-item-search.pl misc/cronjob... [rel_3_0]

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	06/08/31 16:26:42

Modified files:
	barcodes       : label-item-search.pl 
	misc/cronjobs  : reservelist.pl 
	reports        : reservereport.pl 
	serials        : routing-preview.pl 

Log message:
	iteminfo renamed to GetItemsInfo

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/barcodes/label-item-search.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.4&r2=1.4.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/misc/cronjobs/reservelist.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2&r2=1.2.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/reports/reservereport.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.9&r2=1.9.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/serials/routing-preview.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1&r2=1.1.2.1

Patches:
Index: barcodes/label-item-search.pl
===================================================================
RCS file: /sources/koha/koha/barcodes/label-item-search.pl,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -u -b -r1.4 -r1.4.2.1
--- barcodes/label-item-search.pl	10 Aug 2006 13:00:27 -0000	1.4
+++ barcodes/label-item-search.pl	31 Aug 2006 16:26:42 -0000	1.4.2.1
@@ -151,7 +151,7 @@
             #warn $i;
             #warn Dumper $results->[$i]{'bibid'};
         my $type         = 'intra';
-        my @item_results = &ItemInfo( 0, $results->[$i]{'biblionumber'}, $type );
+        my @item_results = &GetItemsInfo($results->[$i]{'biblionumber'}, $type );
 
         foreach my $item (@item_results) {
 

Index: misc/cronjobs/reservelist.pl
===================================================================
RCS file: /sources/koha/koha/misc/cronjobs/reservelist.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -u -b -r1.2 -r1.2.2.1
--- misc/cronjobs/reservelist.pl	22 Sep 2005 10:01:46 -0000	1.2
+++ misc/cronjobs/reservelist.pl	31 Aug 2006 16:26:42 -0000	1.2.2.1
@@ -40,7 +40,7 @@
     $firstname = $data->{'firstname'};
     $phone = $data->{'phone'};
     $rdate = $data->{'reservedate'};
-    my @items = ItemInfo(undef,$biblionumber,''); # get the items for this biblio
+    my @items = GetItemsInfo(undef,$biblionumber,''); # get the items for this biblio
     my @itemorder;   #  prepare a new array to hold re-ordered items
 
 # The following lines take the retrieved items and run them through various

Index: reports/reservereport.pl
===================================================================
RCS file: /sources/koha/koha/reports/reservereport.pl,v
retrieving revision 1.9
retrieving revision 1.9.2.1
diff -u -b -r1.9 -r1.9.2.1
--- reports/reservereport.pl	21 Jul 2006 09:44:37 -0000	1.9
+++ reports/reservereport.pl	31 Aug 2006 16:26:42 -0000	1.9.2.1
@@ -95,7 +95,7 @@
 	 # FIXME still need to shift the text to the template so its translateable
 	 if ( $data->[$i]) {
 	     # find if its on issue
-	     my @items = &ItemInfo( undef, $line{'biblionumber'}, 'intra' );
+	     my @items = &GetItemsInfo($line{'biblionumber'}, 'intra' );
 	     my $onissue = 0;
 	     foreach my $item (@items) {
 		 if ( $item->{'datedue'} eq 'Reserved' ) {

Index: serials/routing-preview.pl
===================================================================
RCS file: /sources/koha/koha/serials/routing-preview.pl,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -u -b -r1.1 -r1.1.2.1
--- serials/routing-preview.pl	20 Jul 2006 03:21:31 -0000	1.1
+++ serials/routing-preview.pl	31 Aug 2006 16:26:42 -0000	1.1.2.1
@@ -57,7 +57,7 @@
         }
     }
     my ($count2, at bibitems) = bibitems($biblio);
-    my @itemresults = ItemInfo($env, $subs->{'biblionumber'}, 'intra');    
+    my @itemresults = GetItemsInfo($subs->{'biblionumber'}, 'intra');
     my $branch = $itemresults[0]->{'holdingbranch'};
     my $const = 'o';
     my $notes;