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