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