[Koha-devel] CVS: koha/C4 Acquisitions.pm,1.6,1.7

[Gynn Lomax]

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