subs renamed according to coding guidelines.

diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl
index 95d1cfd..356f658 100755 (executable)
--- a/opac/opac-reserve.pl
+++ b/opac/opac-reserve.pl
@@ -56,7 +56,7 @@ $template->param(rank => $rank);
 my $branch = $query->param('branch');
 $template->param(branch => $branch);
 
-my $branches = getbranches();
+my $branches = GetBranches();
 # make sure it's a real branch
 if (!$branches->{$branch}) {
 $branch='';

diff --git a/opac/opac-search.pl b/opac/opac-search.pl
index 00d922b..0b17e49 100755 (executable)
--- a/opac/opac-search.pl
+++ b/opac/opac-search.pl
@@ -407,7 +407,7 @@ $template->param( phraseorterm => $phraseorterm );
        $sth->finish;
        my @select_branch;
        my %select_branches;
-       my $branches=getbranches();
+       my $branches=GetBranches();
        push @select_branch, "";
        $select_branches{''} = "";
         foreach my $branch ( keys %$branches ){

diff --git a/opac/opac-user.pl b/opac/opac-user.pl
index 314348c..188a3bf 100755 (executable)
--- a/opac/opac-user.pl
+++ b/opac/opac-user.pl
@@ -109,7 +109,7 @@ $template->param(issues_count => $count);
 $template->param(OVERDUES => \@overdues);
 $template->param(overdues_count => $overdues_count);
 
-my $branches = getbranches();
+my $branches = GetBranches();
 
 # now the reserved items....
 my ($rcount, $reserves) = FindReserves(undef, $borrowernumber);