Code cleaning : Some subs renamed.

diff --git a/serials/lateissues.pl b/serials/lateissues.pl
index 179265b..2762d4a 100755 (executable)
--- 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 6827dbd..b00d18d 100755 (executable)
--- 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 9c6a42d..ec4d7c5 100755 (executable)
--- 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 02503ef..c863775 100755 (executable)
--- 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 caf43da..ab56d99 100755 (executable)
--- 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){