[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