[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/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");
   }