[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;