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

[Antoine Farnault]

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 address@hidden
 # 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);