[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