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

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Antoine Farnault <toins>	06/07/27 13:52:49

Modified files:
	cataloguing    : additem-nomarc.pl 

Log message:
	1 sub renamed and cleaned.

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

Patches:
Index: additem-nomarc.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/additem-nomarc.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- additem-nomarc.pl	21 Jul 2006 10:12:00 -0000	1.3
+++ additem-nomarc.pl	27 Jul 2006 13:52:49 -0000	1.4
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: additem-nomarc.pl,v 1.3 2006/07/21 10:12:00 toins Exp $
+# $Id: additem-nomarc.pl,v 1.4 2006/07/27 13:52:49 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.4  2006/07/27 13:52:49  toins
+# 1 sub renamed and cleaned.
+#
 # Revision 1.3  2006/07/21 10:12:00  toins
 # subs renamed according to coding guidelines.
 #
@@ -93,7 +96,8 @@
 		print $input->redirect('addbooks.pl');
 	}
 	else {
-		( $biblioitemcount, @biblioitems ) = &getbiblioitembybiblionumber($biblionumber);
+		@biblioitems = &GetBiblioItemByBiblioNumber($biblionumber);
+        $biblioitemcount = scalar @biblioitems;
 		my $branches = GetBranches;
 		my @branchloop;
 		foreach my $thisbranch (sort keys %$branches) {
@@ -147,8 +151,8 @@
     }
     else {
 
-        ( $biblioitemcount, @biblioitems ) =
-          &getbiblioitembybiblionumber($biblionumber);
+        @biblioitems =&GetBiblioItemByBiblioNumber($biblionumber);
+        $biblioitemcount = scalar @biblioitems;
         @branches   = &GetBranches;
         ( $itemtypecount, @itemtypes ) = &GetItemTypes;