[Koha-devel] CVS: koha/C4 Acquisitions.pm,1.6,1.7
Gynn Lomax
truth_nz at users.sourceforge.net
Thu May 2 19:48:04 CEST 2002
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);
More information about the Koha-devel
mailing list