[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.