[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha updateitem.pl [dev_week]
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha updateitem.pl [dev_week] |
Date: |
Wed, 04 Oct 2006 15:56:03 +0000 |
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