[Koha-cvs] koha/cataloguing additem-nomarc.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/21 10:12:00

Modified files:
        cataloguing    : additem-nomarc.pl 

Log message:
        subs renamed according to coding guidelines.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/additem-nomarc.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: additem-nomarc.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/additem-nomarc.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- additem-nomarc.pl   12 Jul 2006 17:17:12 -0000      1.2
+++ additem-nomarc.pl   21 Jul 2006 10:12:00 -0000      1.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: additem-nomarc.pl,v 1.2 2006/07/12 17:17:12 toins Exp $
+# $Id: additem-nomarc.pl,v 1.3 2006/07/21 10:12:00 toins Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -20,6 +20,9 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 # $Log: additem-nomarc.pl,v $
+# Revision 1.3  2006/07/21 10:12:00  toins
+# subs renamed according to coding guidelines.
+#
 # Revision 1.2  2006/07/12 17:17:12  toins
 # getitemtypes renamed to GetItemTypes
 #
@@ -64,7 +67,6 @@
 my @biblios;
 my $biblioitemcount;
 my @biblioitems;
-my $branchcount;
 # my @branches;
 # my %branchnames;
 my $itemcount;
@@ -92,7 +94,7 @@
        }
        else {
                ( $biblioitemcount, @biblioitems ) = 
&getbiblioitembybiblionumber($biblionumber);
-               my $branches = getbranches;
+               my $branches = GetBranches;
                my @branchloop;
                foreach my $thisbranch (sort keys %$branches) {
                        my %row =(value => $thisbranch,
@@ -147,7 +149,7 @@
 
         ( $biblioitemcount, @biblioitems ) =
           &getbiblioitembybiblionumber($biblionumber);
-        ( $branchcount,   @branches )  = &branches;
+        @branches   = &GetBranches;
         ( $itemtypecount, @itemtypes ) = &GetItemTypes;
 
         for ( my $i = 0 ; $i < $itemtypecount ; $i++ ) {
@@ -155,7 +157,7 @@
               $itemtypes[$i]->{'description'};
         }    # for
 
-        for ( my $i = 0 ; $i < $branchcount ; $i++ ) {
+        for ( my $i = 0 ; $i < $#branches ; $i++ ) {
             $branchnames{ $branches[$i]->{'branchcode'} } =
               $branches[$i]->{'branchname'};
         }    # for