[Koha-cvs] koha/circ branchtransfers.pl circulation.pl cur...

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Antoine Farnault <toins>	06/07/21 10:10:29

Modified files:
	circ           : branchtransfers.pl circulation.pl 
	                 currenttransfers.pl returns.pl 
	                 selectbranchprinter.pl 
	                 waitingreservestransfers.pl 

Log message:
	subs renamed according to coding guidelines.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/branchtransfers.pl?cvsroot=koha&r1=1.23&r2=1.24
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&r1=1.96&r2=1.97
http://cvs.savannah.gnu.org/viewcvs/koha/circ/currenttransfers.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/circ/returns.pl?cvsroot=koha&r1=1.42&r2=1.43
http://cvs.savannah.gnu.org/viewcvs/koha/circ/selectbranchprinter.pl?cvsroot=koha&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/koha/circ/waitingreservestransfers.pl?cvsroot=koha&r1=1.3&r2=1.4

Patches:
Index: branchtransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/branchtransfers.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- branchtransfers.pl	4 Jul 2006 14:36:51 -0000	1.23
+++ branchtransfers.pl	21 Jul 2006 10:10:29 -0000	1.24
@@ -39,7 +39,7 @@
 my $linecolor1= 0;
 my $linecolor2= 1;
 
-my $branches = getbranches();
+my $branches = GetBranches();
 my $printers = getprinters(\%env);
 
 

Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -b -r1.96 -r1.97
--- circulation.pl	20 Jun 2006 22:35:47 -0000	1.96
+++ circulation.pl	21 Jul 2006 10:10:29 -0000	1.97
@@ -54,7 +54,7 @@
         flagsrequired   => { circulate => 1 },
     }
 );
-my $branches = getbranches();
+my $branches = GetBranches();
 # my $printers = getprinters();
 # my $printer = getprinter($query, $printers);
 

Index: currenttransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/currenttransfers.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- currenttransfers.pl	30 May 2006 12:03:54 -0000	1.2
+++ currenttransfers.pl	21 Jul 2006 10:10:29 -0000	1.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: currenttransfers.pl,v 1.2 2006/05/30 12:03:54 alaurin Exp $
+# $Id: currenttransfers.pl,v 1.3 2006/07/21 10:10:29 toins Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -59,7 +59,7 @@
 my $todaysdate = (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1)).'-'.sprintf ("%0.2d", $datearr[3]);
 
 # get the all the branches for reference
-my $branches = getbranches();
+my $branches = GetBranches();
 my @branchesloop;
 foreach my $br (keys %$branches) {
 	my @transferloop;

Index: returns.pl
===================================================================
RCS file: /sources/koha/koha/circ/returns.pl,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- returns.pl	4 Jul 2006 14:36:51 -0000	1.42
+++ returns.pl	21 Jul 2006 10:10:29 -0000	1.43
@@ -57,7 +57,7 @@
 my $linecolor1            = '#ffffcc';
 my $linecolor2            = 'white';
 
-my $branches = getbranches('IS');
+my $branches = GetBranches('IS');
 my $printers = getprinters( \%env );
 
 my $branch  = C4::Context->userenv->{'branch'};

Index: selectbranchprinter.pl
===================================================================
RCS file: /sources/koha/koha/circ/selectbranchprinter.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- selectbranchprinter.pl	4 Jul 2006 14:36:51 -0000	1.15
+++ selectbranchprinter.pl	21 Jul 2006 10:10:29 -0000	1.16
@@ -46,7 +46,7 @@
 # try to get the branch and printer settings from the http....
 my %env;
 my $query=new CGI;
-my $branches=getbranches('IS');
+my $branches=GetBranches('IS');
 my $printers=getprinters(\%env);
 my $branch=$query->param('branch');
 my $printer=$query->param('printer');

Index: waitingreservestransfers.pl
===================================================================
RCS file: /sources/koha/koha/circ/waitingreservestransfers.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- waitingreservestransfers.pl	6 Jun 2006 12:30:43 -0000	1.3
+++ waitingreservestransfers.pl	21 Jul 2006 10:10:29 -0000	1.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: waitingreservestransfers.pl,v 1.3 2006/06/06 12:30:43 alaurin Exp $
+# $Id: waitingreservestransfers.pl,v 1.4 2006/07/21 10:10:29 toins Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -61,7 +61,7 @@
 }
 
 # get the all the branches for reference
-my $branches = getbranches();
+my $branches = GetBranches();
 my @branchesloop;
 foreach my $br (keys %$branches) {
 	my @reservloop;