[Koha-cvs] koha serials/lateissues.pl serials/serials-reci...

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/19 08:58:38

Modified files:
        serials        : lateissues.pl serials-recieve.pl 
                         subscription-add.pl 
        tools          : overduerules.pl 
        value_builder  : unimarc_field_4XX.pl 

Log message:
        Code cleaning : Some subs renamed.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/lateissues.pl?cvsroot=koha&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/koha/serials/serials-recieve.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/serials/subscription-add.pl?cvsroot=koha&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/koha/tools/overduerules.pl?cvsroot=koha&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/unimarc_field_4XX.pl?cvsroot=koha&r1=1.8&r2=1.9

Patches:
Index: serials/lateissues.pl
===================================================================
RCS file: /sources/koha/koha/serials/lateissues.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- serials/lateissues.pl       12 Jul 2006 16:46:13 -0000      1.3
+++ serials/lateissues.pl       19 Jul 2006 08:58:38 -0000      1.4
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: lateissues.pl,v 1.3 2006/07/12 16:46:13 toins Exp $
+# $Id: lateissues.pl,v 1.4 2006/07/19 08:58:38 toins Exp $
 
 =head1 NAME
 
@@ -72,7 +72,7 @@
 @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",

Index: serials/serials-recieve.pl
===================================================================
RCS file: /sources/koha/koha/serials/serials-recieve.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- serials/serials-recieve.pl  12 Jul 2006 16:43:46 -0000      1.2
+++ serials/serials-recieve.pl  19 Jul 2006 08:58:38 -0000      1.3
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: serials-recieve.pl,v 1.2 2006/07/12 16:43:46 toins Exp $
+# $Id: serials-recieve.pl,v 1.3 2006/07/19 08:58:38 toins Exp $
 
 =head1 NAME
 
@@ -142,7 +142,7 @@
     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,

Index: serials/subscription-add.pl
===================================================================
RCS file: /sources/koha/koha/serials/subscription-add.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- serials/subscription-add.pl 12 Jul 2006 16:43:17 -0000      1.3
+++ serials/subscription-add.pl 19 Jul 2006 08:58:38 -0000      1.4
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: subscription-add.pl,v 1.3 2006/07/12 16:43:17 toins Exp $
+# $Id: subscription-add.pl,v 1.4 2006/07/19 08:58:38 toins Exp $
 
 =head1 NAME
 
@@ -173,8 +173,9 @@
         "dow$dow" => 1,
         );
 }
-##FIXME : Looks like never used.
-(my $temp,@budgets) = bookfunds($homebranch);
address@hidden = 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) {

Index: tools/overduerules.pl
===================================================================
RCS file: /sources/koha/koha/tools/overduerules.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- tools/overduerules.pl       28 Feb 2006 14:58:32 -0000      1.2
+++ tools/overduerules.pl       19 Jul 2006 08:58:38 -0000      1.3
@@ -121,7 +121,7 @@
        }
        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;

Index: value_builder/unimarc_field_4XX.pl
===================================================================
RCS file: /sources/koha/koha/value_builder/unimarc_field_4XX.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- value_builder/unimarc_field_4XX.pl  4 Jul 2006 14:36:52 -0000       1.8
+++ value_builder/unimarc_field_4XX.pl  19 Jul 2006 08:58:38 -0000      1.9
@@ -357,7 +357,7 @@
                my @branchloop;
                my @select_branch;
                my %select_branches;
-               my $branches=getbranches;
+               my $branches=GetBranches;
                push @select_branch, "";
                $select_branches{''} = "";
                foreach my $thisbranch (keys %$branches){