[Koha-cvs] CVS: koha/C4 Biblio.pm,1.84,1.85

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4402/C4

Modified Files:
	Biblio.pm 
Log Message:
renaming items.bulk field to items.itemcallnumber.
Will be used to store call number for libraries that don't use dewey classification.
Note it's related to ITEMS, not biblio.

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.84
retrieving revision 1.85
diff -C2 -r1.84 -r1.85
*** Biblio.pm	24 Mar 2004 17:18:30 -0000	1.84
--- Biblio.pm	2 Apr 2004 14:55:48 -0000	1.85
***************
*** 766,770 ****
  	my $sth2=$dbh->prepare("SELECT itemnumber,biblionumber,multivolumepart,biblioitemnumber,barcode,dateaccessioned,
  						booksellerid,homebranch,price,replacementprice,replacementpricedate,datelastborrowed,
! 						datelastseen,multivolume,stack,notforloan,itemlost,wthdrawn,bulk,issues,renewals,
  					reserves,restricted,binding,itemnotes,holdingbranch,timestamp
  					FROM items
--- 766,770 ----
  	my $sth2=$dbh->prepare("SELECT itemnumber,biblionumber,multivolumepart,biblioitemnumber,barcode,dateaccessioned,
  						booksellerid,homebranch,price,replacementprice,replacementpricedate,datelastborrowed,
! 						datelastseen,multivolume,stack,notforloan,itemlost,wthdrawn,itemcallnumber,issues,renewals,
  					reserves,restricted,binding,itemnotes,holdingbranch,timestamp
  					FROM items
***************
*** 1437,1441 ****
  							price                = ?,						replacementprice     = ?,
  							replacementpricedate = NOW(),	itemnotes            = ?,
! 							bulk	=?, 							notforloan = ?
  							");
  		$sth->execute($itemnumber,	$item->{'biblionumber'},
--- 1437,1441 ----
  							price                = ?,						replacementprice     = ?,
  							replacementpricedate = NOW(),	itemnotes            = ?,
! 							itemcallnumber	=?, 							notforloan = ?
  							");
  		$sth->execute($itemnumber,	$item->{'biblionumber'},
***************
*** 1444,1448 ****
  								$item->{'homebranch'},$item->{'holdingbranch'},
  								$item->{'price'},$item->{'replacementprice'},
! 								$item->{'itemnotes'},$item->{'bulk'},$item->{'notforloan'});
  	} else {
  		$sth=$dbh->prepare("Insert into items set
--- 1444,1448 ----
  								$item->{'homebranch'},$item->{'holdingbranch'},
  								$item->{'price'},$item->{'replacementprice'},
! 								$item->{'itemnotes'},$item->{'itemcallnumber'},$item->{'notforloan'});
  	} else {
  		$sth=$dbh->prepare("Insert into items set
***************
*** 1453,1457 ****
  							price                = ?,						replacementprice     = ?,
  							replacementpricedate = NOW(),	itemnotes            = ?,
! 							bulk = ? , notforloan = ?
  							");
  		$sth->execute($itemnumber,	$item->{'biblionumber'},
--- 1453,1457 ----
  							price                = ?,						replacementprice     = ?,
  							replacementpricedate = NOW(),	itemnotes            = ?,
! 							itemcallnumber = ? , notforloan = ?
  							");
  		$sth->execute($itemnumber,	$item->{'biblionumber'},
***************
*** 1460,1464 ****
  								$item->{'homebranch'},$item->{'holdingbranch'},
  								$item->{'price'},$item->{'replacementprice'},
! 								$item->{'itemnotes'},$item->{'bulk'},$item->{'notforloan'});
  	}
  	if (defined $sth->errstr) {
--- 1460,1464 ----
  								$item->{'homebranch'},$item->{'holdingbranch'},
  								$item->{'price'},$item->{'replacementprice'},
! 								$item->{'itemnotes'},$item->{'itemcallnumber'},$item->{'notforloan'});
  	}
  	if (defined $sth->errstr) {
***************
*** 1474,1479 ****
  #  my $dbh=C4Connect;
  $item->{'itemnum'}=$item->{'itemnumber'} unless $item->{'itemnum'};
!   my $query="update items set  barcode=?,itemnotes=?,bulk=?,notforloan=? where itemnumber=?";
!   my @bind = ($item->{'barcode'},$item->{'notes'},$item->{'bulk'},$item->{'notforloan'},$item->{'itemnum'});
    if ($item->{'barcode'} eq ''){
    	$item->{'notforloan'}=0 unless $item->{'notforloan'};
--- 1474,1479 ----
  #  my $dbh=C4Connect;
  $item->{'itemnum'}=$item->{'itemnumber'} unless $item->{'itemnum'};
!   my $query="update items set  barcode=?,itemnotes=?,itemcallnumber=?,notforloan=? where itemnumber=?";
!   my @bind = ($item->{'barcode'},$item->{'notes'},$item->{'itemcallnumber'},$item->{'notforloan'},$item->{'itemnum'});
    if ($item->{'barcode'} eq ''){
    	$item->{'notforloan'}=0 unless $item->{'notforloan'};
***************
*** 1488,1495 ****
                               itemlost=?,
                               wthdrawn=?,
! 			     bulk=?,
! 			     notforloan=?
                            where itemnumber=?";
!     @bind = ($item->{'bibitemnum'},$item->{'barcode'},$item->{'notes'},$item->{'homebranch'},$item->{'lost'},$item->{'wthdrawn'},$item->{'bulk'},$item->{'notforloan'},$item->{'itemnum'});
    }
    if ($item->{'replacement'} ne ''){
--- 1488,1495 ----
                               itemlost=?,
                               wthdrawn=?,
! 			     itemcallnumber=?,
! 			     notforloan=?,
                            where itemnumber=?";
!     @bind = ($item->{'bibitemnum'},$item->{'barcode'},$item->{'notes'},$item->{'homebranch'},$item->{'lost'},$item->{'wthdrawn'},$item->{'itemcallnumber'},$item->{'notforloan'},$item->{'itemnum'});
    }
    if ($item->{'replacement'} ne ''){
***************
*** 2195,2198 ****
--- 2195,2203 ----
  # $Id$
  # $Log$
+ # Revision 1.85  2004/04/02 14:55:48  tipaul
+ # renaming items.bulk field to items.itemcallnumber.
+ # Will be used to store call number for libraries that don't use dewey classification.
+ # Note it's related to ITEMS, not biblio.
+ #
  # Revision 1.84  2004/03/24 17:18:30  joshferraro
  # Fixes bug 749 by removing the comma on line 1488.