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

[Cindy Murdock]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Cindy Murdock <clm>     07/09/20 20:14:06

Modified files:
        C4             : Biblio.pm 

Log message:
        The koha_modify_item sub wasn't saving changes to price or 
replacementprice.  Fixed.

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.43&r2=1.115.2.51.2.44

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.51.2.43
retrieving revision 1.115.2.51.2.44
diff -u -b -r1.115.2.51.2.43 -r1.115.2.51.2.44
--- Biblio.pm   1 Jan 2007 03:23:36 -0000       1.115.2.51.2.43
+++ Biblio.pm   20 Sep 2007 20:14:05 -0000      1.115.2.51.2.44
@@ -2101,27 +2101,27 @@
        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=?, binding=?";
+barcode=?,itemnotes=?,itemcallnumber=?,notforloan=?,location=?,multivolumepart=?,multivolume=?,stack=?,wthdrawn=?,holdingbranch=?,homebranch=?,cutterextra=?,
 onloan=?, binding=?,price=?,replacementprice=?";
 
     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->{binding}
+        $item->{'location'},           $item->{'multivolumepart'},
+               $item->{'multivolume'},         $item->{'stack'},
+               
$item->{'wthdrawn'},$item->{'holdingbranch'},$item->{'homebranch'},$cutterextra,$item->{'onloan'},$item->{'binding'},$item->{'price'},$item{'replacementprice'}
     );
     if ( $item->{'lost'} ne '' ) {
         $query = "update items set 
biblioitemnumber=?,barcode=?,itemnotes=?,homebranch=?,
                                                        
itemlost=?,wthdrawn=?,itemcallnumber=?,notforloan=?,
-                                                       
location=?,multivolumepart=?,multivolume=?,stack=?,wthdrawn=?,holdingbranch=?,cutterextra=?,onloan=?,
 binding=?";
+                                                       
location=?,multivolumepart=?,multivolume=?,stack=?,wthdrawn=?,holdingbranch=?,cutterextra=?,onloan=?,
 binding=?,price=?,replacementprice=?";
         @bind = (
             $item->{'bibitemnum'},     $item->{'barcode'},
             $item->{'notes'},          $item->{'homebranch'},
             $item->{'lost'},           $item->{'wthdrawn'},
             $item->{'itemcallnumber'}, $item->{'notforloan'},
-            $item->{'location'},               $item->{multivolumepart},
-                       $item->{multivolume},           $item->{stack},
-                       
$item->{wthdrawn},$item->{holdingbranch},$cutterextra,$item->{onloan},$item->{binding}
+            $item->{'location'},               $item->{'multivolumepart'},
+                       $item->{'multivolume'},         $item->{'stack'},
+                       
$item->{'wthdrawn'},$item->{'holdingbranch'},$cutterextra,$item->{'onloan'},$item->{'binding'},$item->{'price'},$item->{'replacementprice'}
         );
                if ($item->{homebranch}) {
                        $query.=",homebranch=?";
@@ -3158,8 +3158,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.51.2.43 2007/01/01 03:23:36 rych Exp $
+# $Id: Biblio.pm,v 1.115.2.51.2.44 2007/09/20 20:14:05 clm Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.51.2.44  2007/09/20 20:14:05  clm
+# The koha_modify_item sub wasn't saving changes to price or replacementprice. 
 Fixed.
+#
 # Revision 1.115.2.51.2.43  2007/01/01 03:23:36  rych
 # passing $record object between newbiblio and newbiblioitem, etc, so we can 
add a minimal marc record in acquisitions, and then add multiple associated 
items.
 #