[Koha-cvs] CVS: koha/C4 Biblio.pm,1.1.2.3,1.1.2.4

[Steve Tonnesen]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv19444

Modified Files:
      Tag: rel-1-2
	Biblio.pm 
Log Message:
Fix to allow non-numeric barcodes.


Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -r1.1.2.3 -r1.1.2.4
*** Biblio.pm	26 Jun 2002 07:24:12 -0000	1.1.2.3
--- Biblio.pm	26 Jun 2002 22:13:49 -0000	1.1.2.4
***************
*** 383,407 ****
    $sth->finish;
    
-   $item->{'booksellerid'}     = $dbh->quote($item->{'bookselletid'});
-   $item->{'homebranch'}       = $dbh->quote($item->{'homebranch'});
-   $item->{'price'}            = $dbh->quote($item->{'price'});
-   $item->{'replacementprice'} = $dbh->quote($item->{'replacementprice'});
-   $item->{'itemnotes'}        = $dbh->quote($item->{'itemnotes'});
  
    foreach my $barcode (@barcodes) {
      $barcode = uc($barcode);
      $query   = "Insert into items set
! itemnumber           = $itemnumber,
! biblionumber         = $item->{'biblionumber'},
! biblioitemnumber     = $item->{'biblioitemnumber'},
! barcode              = $barcode,
! 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'}) {
--- 383,402 ----
    $sth->finish;
    
  
    foreach my $barcode (@barcodes) {
      $barcode = uc($barcode);
      $query   = "Insert into items set
! itemnumber           = ?,
! biblionumber         = ?,
! biblioitemnumber     = ?,
! barcode              = ?,
! booksellerid         = ?,
  dateaccessioned      = NOW(),
! homebranch           = ?,
! holdingbranch        = ?,
! price                = ?,
! replacementprice     = ?,
  replacementpricedate = NOW(),
! itemnotes            = ?";
  
      if ($item->{'loan'}) {
***************
*** 411,415 ****
  
      $sth = $dbh->prepare($query);
!     $sth->execute;
  
      $error=$sth->errstr;
--- 406,421 ----
  
      $sth = $dbh->prepare($query);
!     $sth->execute(
!     	$itemnumber,
! 	$item->{'biblionumber'},
! 	$item->{'biblioitemnumber'},
! 	$barcode,
! 	$item->{'booksellerid'},
! 	$item->{'homebranch'},
! 	$item->{'homebranch'},
! 	$item->{'price'},
! 	$item->{'replacementprice'},
! 	$item->{'itemnotes'}
!     );
  
      $error=$sth->errstr;
***************
*** 976,979 ****
--- 982,988 ----
  #---------------------------------------
  # $Log$
+ # Revision 1.1.2.4  2002/06/26 22:13:49  tonnesen
+ # Fix to allow non-numeric barcodes.
+ #
  # Revision 1.1.2.3  2002/06/26 07:24:12  amillar
  # New subs to streamline biblio additions: addcompletebiblioitem and getoraddbiblio