[Koha-cvs] CVS: koha/C4 Biblio.pm,1.78.2.1,1.78.2.2

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_0
        Biblio.pm 
Log Message:
dealing correctly "bulk" field

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.78.2.1
retrieving revision 1.78.2.2
diff -C2 -r1.78.2.1 -r1.78.2.2
*** Biblio.pm   13 Jan 2004 17:29:53 -0000      1.78.2.1
--- Biblio.pm   26 Jan 2004 10:38:06 -0000      1.78.2.2
***************
*** 567,571 ****
                return;
        }
- 
        # otherwise, skip through each subfield...
        my @fields = $record->fields();
--- 567,570 ----
***************
*** 695,699 ****
      $dbh->do("delete from marc_subfield_table where bibid='$bibid' and
                        tag='$tag' and tagorder='$tagorder'
!                       and subfieldcode='$subfield' and 
subfieldorder='$subfieldorder
                        ");
  }
--- 694,698 ----
      $dbh->do("delete from marc_subfield_table where bibid='$bibid' and
                        tag='$tag' and tagorder='$tagorder'
!                       and subfieldcode='$subfield' and 
subfieldorder='$subfieldorder'
                        ");
  }
***************
*** 1472,1477 ****
  #  my $dbh=C4Connect;
  $item->{'itemnum'}=$item->{'itemnumber'} unless $item->{'itemnum'};
!   my $query="update items set  barcode=?,itemnotes=? where itemnumber=?";
!   my @bind = ($item->{'barcode'},$item->{'notes'},$item->{'itemnum'});
    if ($item->{'barcode'} eq ''){
        $item->{'notforloan'}=0 unless $item->{'notforloan'};
--- 1471,1476 ----
  #  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'};
***************
*** 1485,1491 ****
                               homebranch=?,
                               itemlost=?,
!                              wthdrawn=?
                            where itemnumber=?";
!     @bind = 
($item->{'bibitemnum'},$item->{'barcode'},$item->{'notes'},$item->{'homebranch'},$item->{'lost'},$item->{'wthdrawn'},$item->{'itemnum'});
    }
    if ($item->{'replacement'} ne ''){
--- 1484,1492 ----
                               homebranch=?,
                               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 ''){
***************
*** 2193,2196 ****
--- 2194,2200 ----
  # $Id$
  # $Log$
+ # Revision 1.78.2.2  2004/01/26 10:38:06  tipaul
+ # dealing correctly "bulk" field
+ #
  # Revision 1.78.2.1  2004/01/13 17:29:53  tipaul
  # * minor html fixes