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

[Antoine Farnault]

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

Modified files:
	cataloguing    : additem-nomarc.pl 

Log message:
	getitemtypes renamed to GetItemTypes

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

Patches:
Index: additem-nomarc.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/additem-nomarc.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- additem-nomarc.pl	17 Jan 2006 16:40:54 -0000	1.1
+++ additem-nomarc.pl	12 Jul 2006 17:17:12 -0000	1.2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: additem-nomarc.pl,v 1.1 2006/01/17 16:40:54 tipaul Exp $
+# $Id: additem-nomarc.pl,v 1.2 2006/07/12 17:17:12 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.2  2006/07/12 17:17:12  toins
+# getitemtypes renamed to GetItemTypes
+#
 # Revision 1.1  2006/01/17 16:40:54  tipaul
 # moving acqui.simple directory to cataloguing, as acqui.simple contains cataloguing scripts...
 #
@@ -97,7 +100,7 @@
 					);
 			push @branchloop, \%row;
 		}
-		my $itemtypes = &getitemtypes;
+		my $itemtypes = &GetItemTypes;
 		my @itemtypeloop;
 		foreach my $thisitemtype (sort keys %$itemtypes) {
 			my %row =(value => $thisitemtype,
@@ -145,7 +148,7 @@
         ( $biblioitemcount, @biblioitems ) =
           &getbiblioitembybiblionumber($biblionumber);
         ( $branchcount,   @branches )  = &branches;
-        ( $itemtypecount, @itemtypes ) = &getitemtypes;
+        ( $itemtypecount, @itemtypes ) = &GetItemTypes;
 
         for ( my $i = 0 ; $i < $itemtypecount ; $i++ ) {
             $itemtypedescriptions{ $itemtypes[$i]->{'itemtype'} } =