From 92284686aaca9a26f5df76ce2962f3de370d26cc Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Wed, 19 Jul 2006 08:58:38 +0000
Subject: [PATCH] Code cleaning : Some subs renamed.

---
 serials/lateissues.pl              | 2 +-
 serials/serials-recieve.pl         | 2 +-
 serials/subscription-add.pl        | 5 +++--
 tools/overduerules.pl              | 2 +-
 value_builder/unimarc_field_4XX.pl | 2 +-
 5 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/serials/lateissues.pl b/serials/lateissues.pl
index 179265b3b3..2762d4a542 100755
--- a/serials/lateissues.pl
+++ b/serials/lateissues.pl
@@ -72,7 +72,7 @@ my @lateissues;
 @lateissues = GetLateIssues($supplierid) if $supplierid;
 my @supplierinfo;
 my $nothing;
-($nothing,@supplierinfo)=bookseller($supplierid) if $supplierid;
+($nothing,@supplierinfo)=GetBookSeller($supplierid) if $supplierid;
 
 my ($template, $loggedinuser, $cookie)
 = get_template_and_user({template_name => "serials/lateissues.tmpl",
diff --git a/serials/serials-recieve.pl b/serials/serials-recieve.pl
index 6827dbd7ee..b00d18d647 100755
--- a/serials/serials-recieve.pl
+++ b/serials/serials-recieve.pl
@@ -142,7 +142,7 @@ if (C4::Context->preference("serialsadditems")){
     my $bibid=MARCfind_MARCbibid_from_oldbiblionumber($dbh,$subscription->{biblionumber});
     my $fwk=MARCfind_frameworkcode($dbh,$bibid);
 
-    my $branches = getbranches;
+    my $branches = GetBranches;
     my @branchloop;
     foreach my $thisbranch (keys %$branches) {
         my %row =(value => $thisbranch,
diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl
index 9c6a42dd93..ec4d7c5603 100755
--- a/serials/subscription-add.pl
+++ b/serials/subscription-add.pl
@@ -173,8 +173,9 @@ if ($op eq 'mod') {
         "dow$dow" => 1,
         );
 }
-##FIXME : Looks like never used.
-(my $temp,@budgets) = bookfunds($homebranch);
+@budgets = GetBookFunds($homebranch);
+my $temp = scalar(@budgets);
+
 # find default value & set it for the template
 for (my $i=0;$i<$#budgets;$i++) {
     if ($budgets[$i]->{'aqbudgetid'} eq $aqbudgetid) {
diff --git a/tools/overduerules.pl b/tools/overduerules.pl
index 02503ef183..c863775cce 100755
--- a/tools/overduerules.pl
+++ b/tools/overduerules.pl
@@ -121,7 +121,7 @@ if ($op eq 'save') {
 	}
 	unless ($err) {$template->param(datasaved=>1);}
 }
-my $branches = getbranches;
+my $branches = GetBranches;
 my @branchloop;
 foreach my $thisbranch (keys %$branches) {
 	my $selected = 1 if $thisbranch eq $branch;
diff --git a/value_builder/unimarc_field_4XX.pl b/value_builder/unimarc_field_4XX.pl
index caf43da2db..ab56d99c64 100755
--- a/value_builder/unimarc_field_4XX.pl
+++ b/value_builder/unimarc_field_4XX.pl
@@ -357,7 +357,7 @@ sub plugin {
 		my @branchloop;
 		my @select_branch;
 		my %select_branches;
-		my $branches=getbranches;
+		my $branches=GetBranches;
 		push @select_branch, "";
 		$select_branches{''} = "";
 		foreach my $thisbranch (keys %$branches){
-- 
2.39.5