Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv25277/C4 Modified Files: Acquisitions.pm Log Message: Bug fixes to get the new acqui.simple system working. Index: Acquisitions.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -r1.6 -r1.7 *** Acquisitions.pm 29 Apr 2002 05:25:41 -0000 1.6 --- Acquisitions.pm 3 May 2002 02:47:33 -0000 1.7 *************** *** 407,411 **** author = $biblio->{'author'}, copyrightdate = $biblio->{'copyright'}, ! series = $series; seriestitle = $biblio->{'seriestitle'}, notes = $biblio->{'notes'}, --- 407,411 ---- author = $biblio->{'author'}, copyrightdate = $biblio->{'copyright'}, ! serial = $series, seriestitle = $biblio->{'seriestitle'}, notes = $biblio->{'notes'}, *************** *** 413,417 **** $sth = $dbh->prepare($query); - # print $query; $sth->execute; --- 413,416 ---- *************** *** 913,923 **** booksellerid = $item->{'booksellerid'}, dateaccessioned = NOW(), ! homebranch = $item->{'branch'}, ! holdingbranch = $item->{'branch'}, price = $item->{'price'}, replacementprice = $item->{'replacementprice'}, replacementpricedate = NOW(), - notforloan = $item->{'loan'}, itemnotes = $item->{'itemnotes'}"; $sth = $dbh->prepare($query); --- 912,926 ---- booksellerid = $item->{'booksellerid'}, dateaccessioned = NOW(), ! homebranch = $item->{'homebranch'}, ! holdingbranch = $item->{'homebranch'}, price = $item->{'price'}, replacementprice = $item->{'replacementprice'}, replacementpricedate = NOW(), itemnotes = $item->{'itemnotes'}"; + + if ($item->{'loan'}) { + $query .= ", + notforloan = $item->{'loan'}"; + } # if $sth = $dbh->prepare($query);