[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.50,1.51
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.50,1.51 |
Date: |
Wed, 02 Jul 2003 07:47:19 -0700 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Biblio.pm,1.50,1.51,
Paul POULAIN <=