[Koha-cvs] CVS: koha/z3950/encodingfix Biblio.pm,1.1,1.2

[doXulting]

Update of /cvsroot/koha/koha/z3950/encodingfix
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19000/koha/z3950/encodingfix

Modified Files:
	Biblio.pm 
Log Message:


Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/z3950/encodingfix/Biblio.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** Biblio.pm	2 May 2004 18:06:58 -0000	1.1
--- Biblio.pm	30 Jul 2004 14:21:27 -0000	1.2
***************
*** 1203,1207 ****
    $sth->finish;
    $sth = $dbh->prepare("insert into biblio set biblionumber  = ?, title = ?, author = ?, copyrightdate = ?, serial = ?, seriestitle = ?, notes = ?, abstract = ?");
!   $sth->execute($bibnum,$biblio->{'title'},$biblio->{'author'},$biblio->{'copyrightdate'},$series,$biblio->{'seriestitle'},$biblio->{'notes'},$biblio->{'abstract'});
  
    $sth->finish;
--- 1203,1207 ----
    $sth->finish;
    $sth = $dbh->prepare("insert into biblio set biblionumber  = ?, title = ?, author = ?, copyrightdate = ?, serial = ?, seriestitle = ?, notes = ?, abstract = ?");
!   $sth->execute($bibnum,$biblio->{'title'},$biblio->{'author'},$biblio->{'copyrightdate'},$biblio->{'serial'},$biblio->{'seriestitle'},$biblio->{'notes'},$biblio->{'abstract'});
  
    $sth->finish;
***************
*** 2169,2172 ****
--- 2169,2175 ----
  # $Id$
  # $Log$
+ # Revision 1.2  2004/07/30 14:21:27  doxulting
+ # *** empty log message ***
+ #
  # Revision 1.1  2004/05/02 18:06:58  kb2qzv
  # Replacement file to be used as a temporary fix to get properly formatted records in UTF-8 when importing records from z39.50 server with win1250 (ISO 6937/2) charset.