[Koha-cvs] koha updateitem.pl [dev_week]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Joshua Ferraro <kados>	06/10/04 15:56:03

Modified files:
	.              : updateitem.pl 

Log message:
	adding some paramaters to moditem

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/updateitem.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.9.2.1.2.2&r2=1.9.2.1.2.3

Patches:
Index: updateitem.pl
===================================================================
RCS file: /sources/koha/koha/Attic/updateitem.pl,v
retrieving revision 1.9.2.1.2.2
retrieving revision 1.9.2.1.2.3
diff -u -b -r1.9.2.1.2.2 -r1.9.2.1.2.3
--- updateitem.pl	3 Oct 2006 20:49:44 -0000	1.9.2.1.2.2
+++ updateitem.pl	4 Oct 2006 15:56:02 -0000	1.9.2.1.2.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: updateitem.pl,v 1.9.2.1.2.2 2006/10/03 20:49:44 kados Exp $
+# $Id: updateitem.pl,v 1.9.2.1.2.3 2006/10/04 15:56:02 kados Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -30,25 +30,24 @@
 my $env;
 my $input= new CGI;
 
+# our inputs
 my $bibnum=checkinp($input->param('bibnum'));
 my $itemnum=checkinp($input->param('itemnumber'));
-my $copyright=checkinp($input->param('Copyright'));
-my $seriestitle=checkinp($input->param('Series'));
-my $serial=checkinp($input->param('Serial'));
-my $unititle=checkinp($input->param('Unititle'));
-my $notes=checkinp($input->param('ItemNotes'));
-
-#need to do barcode check
-my $barcode=$input->param('Barcode');
-
+my $copyright=checkinp($input->param('copyright'));
+my $seriestitle=checkinp($input->param('series'));
+my $serial=checkinp($input->param('serial'));
+my $unititle=checkinp($input->param('unititle'));
+my $notes=checkinp($input->param('itemnotes'));
+my $barcode=$input->param('barcode');
 my $bibitemnum=checkinp($input->param('bibitemnum'));
-my $itemtype=checkinp($input->param('Item'));
-my $isbn=checkinp($input->param('ISBN'));
-my $publishercode=checkinp($input->param('Publisher'));
-my $publicationdate=checkinp($input->param('Publication'));
-my $class=checkinp($input->param('Class'));
-my $homebranch=checkinp($input->param('Home'));
-my $lost=$input->param('Lost');
+my $itemtype=checkinp($input->param('itemtype'));
+my $isbn=checkinp($input->param('isbn'));
+my $publishercode=checkinp($input->param('publisher'));
+my $publicationdate=checkinp($input->param('publication'));
+my $class=checkinp($input->param('class'));
+my $homebranch=checkinp($input->param('homebranch'));
+my $holdingbranch=checkinp($input->param('holdingbranch'));
+my $lost=$input->param('lost');
 my $wthdrawn=$input->param('withdrawn');
 my $binding=$input->param('binding');
 my $classification;
@@ -75,18 +74,20 @@
 else{
 	$dewey='';
 }
-my $illus=checkinp($input->param('Illustrations'));
-my $pages=checkinp($input->param('Pages'));
-my $volumeddesc=checkinp($input->param('Volume'));
+my $illus=checkinp($input->param('illustrations'));
+my $pages=checkinp($input->param('pages'));
+my $volumeddesc=checkinp($input->param('volume'));
 
 if ($wthdrawn == 0 && $override ne 'yes'){
-  moditem( { biblionumber => $bibnum,
+  moditem( 
+  		{ biblionumber => $bibnum,
 	     loan         =>'loan',
 	     itemnum      => $itemnum,
 	     bibitemnum   => $bibitemnum,
 	     barcode      => $barcode,
 	     notes        => $notes,
 	     homebranch   => $homebranch,
+		 holdingbranch => $holdingbranch,
 	     lost         => $lost,
 	     wthdrawn     => $wthdrawn,
 		 binding	  => $binding
@@ -146,6 +147,7 @@
 	      barcode      => $barcode,
 	      notes        => $notes,
 	      homebranch   => $homebranch,
+		  holdingbranch => $holdingbranch,
 	      lost         => $lost,
 	      wthdrawn     => $wthdrawn,
 		  binding      => $binding