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

[Ryan Higgins]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Ryan Higgins <rych>	07/07/28 19:39:14

Modified files:
	C4             : Biblio.pm 

Log message:
	Allow modification of price & replacementprice in OLDmoditem.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.115.2.72&r2=1.115.2.73

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.72
retrieving revision 1.115.2.73
diff -u -b -r1.115.2.72 -r1.115.2.73
--- Biblio.pm	29 May 2007 13:13:32 -0000	1.115.2.72
+++ Biblio.pm	28 Jul 2007 19:39:14 -0000	1.115.2.73
@@ -26,7 +26,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.115.2.72 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.115.2.73 $' =~ /\d+/g;
                     shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 @ISA = qw(Exporter);
@@ -594,7 +594,7 @@
             $record->add_fields($field);
         }
     }
-    warn "XML : ".$record->as_xml();
+#    warn "XML : ".$record->as_xml();
     return $record;
 }
 
@@ -2024,18 +2024,9 @@
 		$item->{wthdrawn},
     );
     if ( $item->{'lost'} ne '' ) {
-        $query = "update items set biblioitemnumber=?,barcode=?,itemnotes=?,homebranch=?,
-							itemlost=?,wthdrawn=?,itemcallnumber=?,notforloan=?,
-				 			location=?,multivolumepart=?,multivolume=?,stack=?,wthdrawn=?";
-        @bind = (
-            $item->{'bibitemnum'},     $item->{'barcode'},
-            $item->{'itemnotes'},          $item->{'homebranch'},
-            $item->{'lost'},           $item->{'wthdrawn'},
-            $item->{'itemcallnumber'}, $item->{'notforloan'},
-            $item->{'location'},		$item->{multivolumepart},
-			$item->{multivolume},		$item->{stack},
-			$item->{wthdrawn},
-        );
+	# FIXME - why do we add bibitem ?
+    	$query .= " ,itemlost=?,biblioitemnumber=?";
+		push @bind,  ( $item->{'lost'}, $item->{'bibitemnum'} );
     }
     if ($item->{homebranch}) {
         $query.=",homebranch=?";
@@ -2045,11 +2036,21 @@
         $query.=",holdingbranch=?";
         push @bind, $item->{holdingbranch};
     }
+    if ($item->{replacement} || $item->{replacementprice}) {
+        $query.=",replacementprice=?";
+		my $currency = $item->{replacement} || $item->{replacementprice};
+		$currency =~ s/[^0-9.]//g;
+        push @bind, $currency ;
+    }
+    if ($item->{price}) {
+        $query.=",price=?";
+		my $currency = $item->{price};
+		$currency =~ s/[^0-9.]//g;
+        push @bind, $currency ;
+    }
 	$query.=" where itemnumber=?";
 	push @bind,$item->{'itemnum'};
-   if ( $item->{'replacement'} ne '' ) {
-        $query =~ s/ where/,replacementprice='$item->{'replacement'}' where/;
-    }
+
     my $sth = $dbh->prepare($query);
     $sth->execute(@bind);
     $sth->finish;
@@ -3040,8 +3041,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.72 2007/05/29 13:13:32 hdl Exp $
+# $Id: Biblio.pm,v 1.115.2.73 2007/07/28 19:39:14 rych Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.73  2007/07/28 19:39:14  rych
+# Allow modification of price & replacementprice in OLDmoditem.
+#
 # Revision 1.115.2.72  2007/05/29 13:13:32  hdl
 # Adding delete from subtitle in OLDdelbiblio
 #