[Koha-cvs] CVS: koha/C4 Biblio.pm,1.78.2.7,1.78.2.8

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_0
	Biblio.pm 
Log Message:
* removing | in MARC datas (| should never be sent. In BNF z3950 server, the | is added at the beginning of almost every title. It's an historic feature that means nothing now but has not been deleted)
* bugfix in MARC editor when a library has no barcode, the items table modifs did not work (adding worked)

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.78.2.7
retrieving revision 1.78.2.8
diff -C2 -r1.78.2.7 -r1.78.2.8
*** Biblio.pm	24 Mar 2004 17:30:35 -0000	1.78.2.7
--- Biblio.pm	25 Mar 2004 13:22:06 -0000	1.78.2.8
***************
*** 1473,1481 ****
    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'};
!     $query="update items set notforloan=? where itemnumber=?";
!     @bind = ($item->{'notforloan'},$item->{'itemnum'});
!   }
    if ($item->{'lost'} ne ''){
      $query="update items set biblioitemnumber=?,
--- 1473,1481 ----
    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'};
! #    $query="update items set notforloan=? where itemnumber=?";
! #    @bind = ($item->{'notforloan'},$item->{'itemnum'});
! #  }
    if ($item->{'lost'} ne ''){
      $query="update items set biblioitemnumber=?,
***************
*** 1493,1496 ****
--- 1493,1497 ----
      $query=~ s/ where/,replacementprice='$item->{'replacement'}' where/;
    }
+   warn "Q : $query";
    my $sth=$dbh->prepare($query);
    $sth->execute(@bind);
***************
*** 2163,2166 ****
--- 2164,2169 ----
  		}
  	}
+ 	# also remove |
+ 	$string =~ s/\|//g;
  	return($string) ;
  }
***************
*** 2192,2195 ****
--- 2195,2202 ----
  # $Id$
  # $Log$
+ # Revision 1.78.2.8  2004/03/25 13:22:06  tipaul
+ # * removing | in MARC datas (| should never be sent. In BNF z3950 server, the | is added at the beginning of almost every title. It's an historic feature that means nothing now but has not been deleted)
+ # * bugfix in MARC editor when a library has no barcode, the items table modifs did not work (adding worked)
+ #
  # Revision 1.78.2.7  2004/03/24 17:30:35  joshferraro
  # Fixes bug 749 by deleting the comma on line 1488 in Biblio.pm