[Koha-cvs] CVS: koha/z3950 z3950import.pl,1.4,1.4.2.1

[MJ Ray]

Update of /cvsroot/koha/koha/z3950
In directory sc8-pr-cvs1:/tmp/cvs-serv4262/z3950

Modified Files:
      Tag: rel_2_0
        z3950import.pl 
Log Message:
DBI call fix for bug 662. No syntax check: missing module?

Index: z3950import.pl
===================================================================
RCS file: /cvsroot/koha/koha/z3950/z3950import.pl,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** z3950import.pl      15 Jul 2003 00:02:49 -0000      1.4
--- z3950import.pl      8 Jan 2004 16:31:54 -0000       1.4.2.1
***************
*** 163,172 ****
        my $id=$1;
        my $resultsid=$input->param('resultsid');
!       my $sth=$dbh->prepare("select results from z3950results where 
id=$resultsid");
!       $sth->execute;
        ($data) = $sth->fetchrow;
      } else {
!       my $sth=$dbh->prepare("select marc from uploadedmarc where id=$file");
!       $sth->execute;
        ($data) = $sth->fetchrow;
      }
--- 163,172 ----
        my $id=$1;
        my $resultsid=$input->param('resultsid');
!       my $sth=$dbh->prepare("select results from z3950results where id=?");
!       $sth->execute($resultsid);
        ($data) = $sth->fetchrow;
      } else {
!       my $sth=$dbh->prepare("select marc from uploadedmarc where id=?");
!       $sth->execute($file);
        ($data) = $sth->fetchrow;
      }
***************
*** 254,259 ****
      if (not $file=~/Z-(\d+)/) {
        # This is a Marc upload
!       $sth=$dbh->prepare("select marc,name from uploadedmarc where id=$file");
!       $sth->execute;
        ($data, $name) = $sth->fetchrow;
        $template->param(IS_MARC => 1);
--- 254,259 ----
      if (not $file=~/Z-(\d+)/) {
        # This is a Marc upload
!       $sth=$dbh->prepare("select marc,name from uploadedmarc where id=?");
!       $sth->execute($file);
        ($data, $name) = $sth->fetchrow;
        $template->param(IS_MARC => 1);
***************
*** 998,1001 ****
--- 998,1004 ----
  #---------------
  # $Log$
+ # Revision 1.4.2.1  2004/01/08 16:31:54  slef
+ # DBI call fix for bug 662. No syntax check: missing module?
+ #
  # Revision 1.4  2003/07/15 00:02:49  slef
  # Work on bug 515... can we do a single-side rename of notes to bnotes?