koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Antoine Farnault
Subject: [Koha-cvs] koha/cataloguing additem-nomarc.pl
Date: Wed, 12 Jul 2006 17:17:12 +0000

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'} } =




reply via email to

[Prev in Thread] Current Thread [Next in Thread]