[Koha-cvs] koha/members memberentry.pl pay.pl

Antoine Farnault antoine at koha-fr.org
Fri Jul 21 11:57:30 CEST 2006


CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Antoine Farnault <toins>	06/07/21 09:57:30

Modified files:
	members        : memberentry.pl pay.pl 

Log message:
	subs renamed according to coding guidelines.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&r1=1.37&r2=1.38
http://cvs.savannah.gnu.org/viewcvs/koha/members/pay.pl?cvsroot=koha&r1=1.3&r2=1.4

Patches:
Index: memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- memberentry.pl	4 Jul 2006 14:36:52 -0000	1.37
+++ memberentry.pl	21 Jul 2006 09:57:30 -0000	1.38
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: memberentry.pl,v 1.37 2006/07/04 14:36:52 toins Exp $
+# $Id: memberentry.pl,v 1.38 2006/07/21 09:57:30 toins Exp $
 
 # Copyright 2006 SAN OUEST PROVENCE et Paul POULAIN
 #
@@ -354,7 +354,7 @@
 	my @branches;
 	my @select_branch;
 	my %select_branches;
-	my $branches=getbranches('IS');
+	my $branches=GetBranches('IS');
 	my $default;
 	# -----------------------------------------------------
 	#  the value of ip from the branches hash table

Index: pay.pl
===================================================================
RCS file: /sources/koha/koha/members/pay.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- pay.pl	13 Jun 2006 09:19:18 -0000	1.3
+++ pay.pl	21 Jul 2006 09:57:30 -0000	1.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: pay.pl,v 1.3 2006/06/13 09:19:18 btoumi Exp $
+# $Id: pay.pl,v 1.4 2006/07/21 09:57:30 toins Exp $
 
 # written 11/1/2000 by chris at katipo.oc.nz
 # part of the koha library system, script to facilitate paying off fines
@@ -48,7 +48,7 @@
 # get account details
 my %bor;
 $bor{'borrowernumber'}=$bornum;
-my $branches = getbranches();
+my $branches = GetBranches();
 my $printers = getprinters();
 my $branch = getbranch($input, $branches);
 





More information about the Koha-cvs mailing list