[Koha-cvs] koha updateitem.pl [dev_week]
Joshua Ferraro
jmf at kados.org
Tue Oct 3 22:49:44 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Joshua Ferraro <kados> 06/10/03 20:49:44
Modified files:
. : updateitem.pl
Log message:
I've changed items.binding to be a flag and linked it to an authorized
value in the framework -- now there are three statuses that can be set
from the moredetail.pl screen:
Binding -> items.binding -> authorized_value
Lost -> items.itemlost -> authorized_value
Withdrawn -> items.wthdrawn (not yet linked to authorized value)
This commit makes all three of those statues update properly and
play nicely together.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/updateitem.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.9.2.1.2.1&r2=1.9.2.1.2.2
Patches:
Index: updateitem.pl
===================================================================
RCS file: /sources/koha/koha/Attic/updateitem.pl,v
retrieving revision 1.9.2.1.2.1
retrieving revision 1.9.2.1.2.2
diff -u -b -r1.9.2.1.2.1 -r1.9.2.1.2.2
--- updateitem.pl 3 Aug 2006 05:25:41 -0000 1.9.2.1.2.1
+++ updateitem.pl 3 Oct 2006 20:49:44 -0000 1.9.2.1.2.2
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: updateitem.pl,v 1.9.2.1.2.1 2006/08/03 05:25:41 kados Exp $
+# $Id: updateitem.pl,v 1.9.2.1.2.2 2006/10/03 20:49:44 kados Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -50,13 +50,16 @@
my $homebranch=checkinp($input->param('Home'));
my $lost=$input->param('Lost');
my $wthdrawn=$input->param('withdrawn');
+my $binding=$input->param('binding');
my $classification;
my $dewey;
my $subclass;
my $override=$input->param('override');
+
if ($itemtype ne 'NF'){
$classification=$class;
}
+
if ($class =~/[0-9]+/){
$dewey= $class;
$dewey=~ s/[a-z]+//gi;
@@ -68,7 +71,8 @@
}
$classification=$temp[0];
$subclass=$temp[1];
-}else{
+}
+else{
$dewey='';
}
my $illus=checkinp($input->param('Illustrations'));
@@ -84,7 +88,8 @@
notes => $notes,
homebranch => $homebranch,
lost => $lost,
- wthdrawn => $wthdrawn
+ wthdrawn => $wthdrawn,
+ binding => $binding
});
if ($lost ==1){
my $dbh = C4::Context->dbh;
@@ -142,7 +147,8 @@
notes => $notes,
homebranch => $homebranch,
lost => $lost,
- wthdrawn => $wthdrawn
+ wthdrawn => $wthdrawn,
+ binding => $binding
});
print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");
}
More information about the Koha-cvs
mailing list