[Koha-cvs] koha/cataloguing additem.pl

Chris Cormack chris at katipo.co.nz
Wed Feb 15 04:14:54 CET 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Chris Cormack <rangi at savannah.gnu.org>	06/02/15 03:14:53

Modified files:
	cataloguing    : additem.pl 

Log message:
	Can now add an item

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/cataloguing/additem.pl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text

Patches:
Index: koha/cataloguing/additem.pl
diff -u koha/cataloguing/additem.pl:1.2 koha/cataloguing/additem.pl:1.3
--- koha/cataloguing/additem.pl:1.2	Thu Jan 19 12:48:00 2006
+++ koha/cataloguing/additem.pl	Wed Feb 15 03:14:53 2006
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: additem.pl,v 1.2 2006/01/19 12:48:00 tipaul Exp $
+# $Id: additem.pl,v 1.3 2006/02/15 03:14:53 rangi Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -99,7 +99,7 @@
 	my $exists = get_item_from_barcode($addedolditem->{'barcode'});
 	push @errors,"barcode_not_unique" if($exists);
 	# if barcode exists, don't create, but report The problem.
-	$itemnumber = NEWnewitem($dbh,$addedolditem,$biblionumber,$biblioitemnumber) unless ($exists);
+	$itemnumber = NEWnewitem($dbh,$record,$biblionumber,$biblioitemnumber) unless ($exists);
 	$nextop = "additem";
 #------------------------------------------------------------------------------------------------------------------------------
 } elsif ($op eq "edititem") {





More information about the Koha-cvs mailing list