[Koha-cvs] koha C4/Biblio.pm circ/branchreserves.pl reserv... [rel_3_0]

[LAURIN arnaud]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     LAURIN arnaud <alaurin> 06/08/31 13:28:52

Modified files:
        C4             : Biblio.pm 
        circ           : branchreserves.pl 
        reserve        : request.pl 

Log message:
        changing the name of variables, according to the recommendation of 
developement .

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.178.2.3&r2=1.178.2.4
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchreserves.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2.2.2&r2=1.2.2.3
http://cvs.savannah.gnu.org/viewcvs/koha/reserve/request.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.6.2.1&r2=1.6.2.2

Patches:
Index: C4/Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.3
retrieving revision 1.178.2.4
diff -u -b -r1.178.2.3 -r1.178.2.4
--- C4/Biblio.pm        31 Aug 2006 09:59:23 -0000      1.178.2.3
+++ C4/Biblio.pm        31 Aug 2006 13:28:52 -0000      1.178.2.4
@@ -81,8 +81,8 @@
   &char_decode
   &DisplayISBN
 &itemcalculator &calculatelc
-&get_iteminfos_of
-&get_biblioiteminfos_of
+&GetItemInfosOf
+&GetBiblioItemInfosOf
 );
 
 #
@@ -3129,7 +3129,7 @@
 
 }
 
-sub get_iteminfos_of {
+sub GetItemInfosOf {
     my @itemnumbers = @_;
 
     my $query = '
@@ -3140,7 +3140,7 @@
     return get_infos_of($query, 'itemnumber');
 }
 
-sub get_biblioiteminfos_of {
+sub GetBiblioItemInfosOf {
     my @biblioitemnumbers = @_;
 
     my $query = '
@@ -3167,8 +3167,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.178.2.3 2006/08/31 09:59:23 alaurin Exp $
+# $Id: Biblio.pm,v 1.178.2.4 2006/08/31 13:28:52 alaurin Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.178.2.4  2006/08/31 13:28:52  alaurin
+# changing the name of variables, according to the recommendation of 
developement .
+#
 # Revision 1.178.2.3  2006/08/31 09:59:23  alaurin
 # bugfixing for the branchreserves.pl program
 #
@@ -3176,7 +3179,7 @@
 #
 # - get_item_infos_of
 # - get_infos_of
-# - get_biblioiteminfos_of
+# - GetBiblioItemInfosOf
 #
 # and remove the %env variable . in branchreserves.pl
 #

Index: circ/branchreserves.pl
===================================================================
RCS file: /sources/koha/koha/circ/branchreserves.pl,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -u -b -r1.2.2.2 -r1.2.2.3
--- circ/branchreserves.pl      31 Aug 2006 09:59:23 -0000      1.2.2.2
+++ circ/branchreserves.pl      31 Aug 2006 13:28:52 -0000      1.2.2.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: branchreserves.pl,v 1.2.2.2 2006/08/31 09:59:23 alaurin Exp $
+# $Id: branchreserves.pl,v 1.2.2.3 2006/08/31 13:28:52 alaurin Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -98,7 +98,6 @@
        }
        
 my @reservloop;
-warn "retour default ->".$default;
 my @getreserves = GetReservesForBranch($default);
 foreach my $num (@getreserves) {
        my %getreserv;

Index: reserve/request.pl
===================================================================
RCS file: /sources/koha/koha/reserve/request.pl,v
retrieving revision 1.6.2.1
retrieving revision 1.6.2.2
diff -u -b -r1.6.2.1 -r1.6.2.2
--- reserve/request.pl  30 Aug 2006 16:38:51 -0000      1.6.2.1
+++ reserve/request.pl  31 Aug 2006 13:28:52 -0000      1.6.2.2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: request.pl,v 1.6.2.1 2006/08/30 16:38:51 toins Exp $
+# $Id: request.pl,v 1.6.2.2 2006/08/31 13:28:52 alaurin Exp $
 
 #script to place reserves/requests
 #writen 2/1/00 by address@hidden
@@ -196,7 +196,7 @@
 my @branchcodes;
 my %itemnumbers_of_biblioitem;
 my @itemnumbers = @{get_itemnumbers_of($bib)->{$bib}};
-my $iteminfos_of = get_iteminfos_of(@itemnumbers);
+my $iteminfos_of = GetItemInfosOf(@itemnumbers);
 
 foreach my $itemnumber (@itemnumbers) {
     push(
@@ -218,7 +218,7 @@
 
 my $branchinfos_of = get_branchinfos_of(@branchcodes);
 my $notforloan_label_of = get_notforloan_label_of();
-my $biblioiteminfos_of = get_biblioiteminfos_of(@biblioitemnumbers);
+my $biblioiteminfos_of = GetBiblioItemInfosOf(@biblioitemnumbers);
 
 my @itemtypes;
 foreach my $biblioitemnumber (@biblioitemnumbers) {