[Koha-cvs] koha/C4 Biblio.pm [dev_week]

[Joshua Ferraro]

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

Modified files:
        C4             : Biblio.pm 

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/C4/Biblio.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.115.2.51.2.34&r2=1.115.2.51.2.35

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.51.2.34
retrieving revision 1.115.2.51.2.35
diff -u -b -r1.115.2.51.2.34 -r1.115.2.51.2.35
--- Biblio.pm   3 Oct 2006 19:23:34 -0000       1.115.2.51.2.34
+++ Biblio.pm   3 Oct 2006 20:49:56 -0000       1.115.2.51.2.35
@@ -2088,19 +2088,19 @@
        my 
($cutterextra)=itemcalculator($dbh,$item->{'bibitemnum'},$item->{'itemcallnumber'});
 
     my $query = "UPDATE items SET
-barcode=?,itemnotes=?,itemcallnumber=?,notforloan=?,location=?,multivolumepart=?,multivolume=?,stack=?,wthdrawn=?,holdingbranch=?,homebranch=?,cutterextra=?,
 onloan=?";
+barcode=?,itemnotes=?,itemcallnumber=?,notforloan=?,location=?,multivolumepart=?,multivolume=?,stack=?,wthdrawn=?,holdingbranch=?,homebranch=?,cutterextra=?,
 onloan=?, binding=?";
 
     my @bind = (
         $item->{'barcode'},                    $item->{'notes'},
         $item->{'itemcallnumber'},     $item->{'notforloan'},
         $item->{'location'},           $item->{multivolumepart},
                $item->{multivolume},           $item->{stack},
-               
$item->{wthdrawn},$item->{holdingbranch},$item->{homebranch},$cutterextra,$item->{onloan}
+               
$item->{wthdrawn},$item->{holdingbranch},$item->{homebranch},$cutterextra,$item->{onloan},$item->{binding}
     );
     if ( $item->{'lost'} ne '' ) {
         $query = "update items set 
biblioitemnumber=?,barcode=?,itemnotes=?,homebranch=?,
                                                        
itemlost=?,wthdrawn=?,itemcallnumber=?,notforloan=?,
-                                                       
location=?,multivolumepart=?,multivolume=?,stack=?,wthdrawn=?,holdingbranch=?,cutterextra=?,onloan=?";
+                                                       
location=?,multivolumepart=?,multivolume=?,stack=?,wthdrawn=?,holdingbranch=?,cutterextra=?,onloan=?,
 binding=?";
         @bind = (
             $item->{'bibitemnum'},     $item->{'barcode'},
             $item->{'notes'},          $item->{'homebranch'},
@@ -2108,7 +2108,7 @@
             $item->{'itemcallnumber'}, $item->{'notforloan'},
             $item->{'location'},               $item->{multivolumepart},
                        $item->{multivolume},           $item->{stack},
-                       
$item->{wthdrawn},$item->{holdingbranch},$cutterextra,$item->{onloan}
+                       
$item->{wthdrawn},$item->{holdingbranch},$cutterextra,$item->{onloan},$item->{binding}
         );
 #              if ($item->{homebranch}) {
 #                      $query.=",homebranch=?";
@@ -2501,10 +2501,8 @@
     my ($item) = @_;
     my $dbh = C4::Context->dbh;
     &_koha_modify_item( $dbh, $item );
-    my $MARCitem =
-      &MARCkoha2marcItem( $dbh, $item->{'biblionumber'}, $item->{'itemnum'} );
-    my $bibid =
-      &MARCfind_MARCbibid_from_oldbiblionumber( $dbh, $item->{biblionumber} );
+    my $MARCitem = &MARCkoha2marcItem( $dbh, $item->{'biblionumber'}, 
$item->{'itemnum'} );
+    my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber( $dbh, 
$item->{biblionumber} );
     &MARCmoditem( $dbh, $MARCitem, $bibid, $item->{itemnum}, 0 );
 }
 
@@ -3141,8 +3139,20 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.51.2.34 2006/10/03 19:23:34 kados Exp $
+# $Id: Biblio.pm,v 1.115.2.51.2.35 2006/10/03 20:49:56 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.51.2.35  2006/10/03 20:49:56  kados
+# 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.
+#
 # Revision 1.115.2.51.2.34  2006/10/03 19:23:34  kados
 # had to change back to add_fields because insert_fields_ordered expects
 # a MARC::Field object ... I'll fix this soon.