[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.
 #