subs renamed according to coding guidelines.

diff --git a/members/memberentry.pl b/members/memberentry.pl
index 6dea08c..ca34e0d 100755 (executable)
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -354,7 +354,7 @@ if ($delete){
        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

diff --git a/members/pay.pl b/members/pay.pl
index 7aedff9..2b4c442 100755 (executable)
--- a/members/pay.pl
+++ b/members/pay.pl
@@ -48,7 +48,7 @@ my $user=$input->remote_user;
 # get account details
 my %bor;
 $bor{'borrowernumber'}=$bornum;
-my $branches = getbranches();
+my $branches = GetBranches();
 my $printers = getprinters();
 my $branch = getbranch($input, $branches);