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

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Mason James <sushi>     08/02/04 01:07:08

Modified files:
        C4             : Biblio.pm 

Log message:
        typo

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.47&r2=1.115.2.51.2.48

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.51.2.47
retrieving revision 1.115.2.51.2.48
diff -u -b -r1.115.2.51.2.47 -r1.115.2.51.2.48
--- Biblio.pm   21 Nov 2007 15:56:48 -0000      1.115.2.51.2.47
+++ Biblio.pm   4 Feb 2008 01:07:07 -0000       1.115.2.51.2.48
@@ -2084,6 +2084,11 @@
 
 sub _koha_modify_item {
     my ( $dbh, $item, $op ) = @_;
+
+
+### $item
+
+
     $item->{'itemnum'} = $item->{'itemnumber'} unless $item->{'itemnum'};
 
        # if all we're doing is setting statuses, just update those and get out
@@ -2103,12 +2108,14 @@
     my $query = "UPDATE items SET
 
barcode=?,itemnotes=?,itemcallnumber=?,notforloan=?,location=?,multivolumepart=?,multivolume=?,stack=?,wthdrawn=?,holdingbranch=?,homebranch=?,cutterextra=?,
 onloan=?, binding=?,price=?,replacementprice=?";
 
+### $item
+
     my @bind = (
         $item->{'barcode'},                    $item->{'itemnotes'},
         $item->{'itemcallnumber'},     $item->{'notforloan'},
         $item->{'location'},           $item->{'multivolumepart'},
                $item->{'multivolume'},         $item->{'stack'},
-               
$item->{'wthdrawn'},$item->{'holdingbranch'},$item->{'homebranch'},$cutterextra,$item->{'onloan'},$item->{'binding'},$item->{'price'},$item{'replacementprice'}
+               
$item->{'wthdrawn'},$item->{'holdingbranch'},$item->{'homebranch'},$cutterextra,$item->{'onloan'},$item->{'binding'},$item->{'price'},$item->{'replacementprice'}
     );
     if ( $item->{'itemlost'} ne '' | '0' ) {
         $query = "update items set barcode=?,itemnotes=?,homebranch=?,
@@ -2132,6 +2139,9 @@
                        push @bind, $item->{holdingbranch};
                }
     }
+
+### $item
+
        $query.=" where itemnumber=?";
        push @bind,$item->{'itemnum'};
        if ( $item->{'replacement'} ne '' ) {
@@ -3158,8 +3168,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.51.2.47 2007/11/21 15:56:48 clm Exp $
+# $Id: Biblio.pm,v 1.115.2.51.2.48 2008/02/04 01:07:07 sushi Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.51.2.48  2008/02/04 01:07:07  sushi
+# typo
+#
 # Revision 1.115.2.51.2.47  2007/11/21 15:56:48  clm
 # One further tweak of yesterday's fix.
 #