[Koha-cvs] CVS: koha/C4 Biblio.pm,1.50,1.51

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv2385/C4

Modified Files:
	Biblio.pm 
Log Message:
fix for #519 : items.dateaccessioned imports incorrectly

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -r1.50 -r1.51
*** Biblio.pm	2 Jul 2003 13:57:13 -0000	1.50
--- Biblio.pm	2 Jul 2003 14:47:17 -0000	1.51
***************
*** 2,7 ****
  # $Id$
  # $Log$
! # Revision 1.50  2003/07/02 13:57:13  tipaul
! # fix for #512 (not sure it's enogh. to be checked by NPL)
  #
  # Revision 1.49  2003/06/17 11:21:13  tipaul
--- 2,7 ----
  # $Id$
  # $Log$
! # Revision 1.51  2003/07/02 14:47:17  tipaul
! # fix for #519 : items.dateaccessioned imports incorrectly
  #
  # Revision 1.49  2003/06/17 11:21:13  tipaul
***************
*** 1620,1640 ****
  	$itemnumber = $data->{'max(itemnumber)'} + 1;
  	$sth->finish;
! 
! 	$sth=$dbh->prepare("Insert into items set
! 						itemnumber           = ?,				biblionumber         = ?,
! 						biblioitemnumber     = ?,				barcode              = ?,
! 						booksellerid         = ?,					dateaccessioned      = NOW(),
! 						homebranch           = ?,				holdingbranch        = ?,
! 						price                = ?,						replacementprice     = ?,
! 						replacementpricedate = NOW(),	itemnotes            = ?,
! 						notforloan = ?
! 
! 						");
! 	$sth->execute($itemnumber,	$item->{'biblionumber'},
! 							$item->{'biblioitemnumber'},$barcode,
! 							$item->{'booksellerid'},
! 							$item->{'homebranch'},$item->{'holdingbranch'},
! 							$item->{'price'},$item->{'replacementprice'},
! 							$item->{'itemnotes'},$item->{'loan'});
  	if (defined $sth->errstr) {
  		$error .= $sth->errstr;
--- 1620,1657 ----
  	$itemnumber = $data->{'max(itemnumber)'} + 1;
  	$sth->finish;
! # if dateaccessioned is provided, use it. Otherwise, set to NOW()
! 	if ($item->{'dateaccessioned'}) {
! 		$sth=$dbh->prepare("Insert into items set
! 							itemnumber           = ?,				biblionumber         = ?,
! 							biblioitemnumber     = ?,				barcode              = ?,
! 							booksellerid         = ?,					dateaccessioned      = ?,
! 							homebranch           = ?,				holdingbranch        = ?,
! 							price                = ?,						replacementprice     = ?,
! 							replacementpricedate = NOW(),	itemnotes            = ?,
! 							notforloan = ?
! 							");
! 		$sth->execute($itemnumber,	$item->{'biblionumber'},
! 								$item->{'biblioitemnumber'},$barcode,
! 								$item->{'booksellerid'},$item->{'dateaccessioned'},
! 								$item->{'homebranch'},$item->{'holdingbranch'},
! 								$item->{'price'},$item->{'replacementprice'},
! 								$item->{'itemnotes'},$item->{'loan'});
! 	} else {
! 		$sth=$dbh->prepare("Insert into items set
! 							itemnumber           = ?,				biblionumber         = ?,
! 							biblioitemnumber     = ?,				barcode              = ?,
! 							booksellerid         = ?,					dateaccessioned      = NOW(),
! 							homebranch           = ?,				holdingbranch        = ?,
! 							price                = ?,						replacementprice     = ?,
! 							replacementpricedate = NOW(),	itemnotes            = ?,
! 							notforloan = ?
! 							");
! 		$sth->execute($itemnumber,	$item->{'biblionumber'},
! 								$item->{'biblioitemnumber'},$barcode,
! 								$item->{'booksellerid'},
! 								$item->{'homebranch'},$item->{'holdingbranch'},
! 								$item->{'price'},$item->{'replacementprice'},
! 								$item->{'itemnotes'},$item->{'loan'});
! 	}
  	if (defined $sth->errstr) {
  		$error .= $sth->errstr;