[Koha-cvs] CVS: koha/admin checkmarc.pl,1.5,1.5.2.1

[MJ Ray]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv4537/admin

Modified Files:
      Tag: rel_2_0
        checkmarc.pl 
Log Message:
DBI call fix for bug 662

Index: checkmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/checkmarc.pl,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** checkmarc.pl        4 Sep 2003 15:03:00 -0000       1.5
--- checkmarc.pl        19 Dec 2003 02:16:04 -0000      1.5.2.1
***************
*** 83,88 ****
        }
  }
! $sth = $dbh->prepare("select kohafield from marc_subfield_structure where 
tagfield=$tagfield");
! $sth->execute;
  while (($res2) = $sth->fetchrow) {
        if (!$res2 || $res2 =~ /^items/) {
--- 83,88 ----
        }
  }
! $sth = $dbh->prepare("select kohafield from marc_subfield_structure where 
tagfield=?");
! $sth->execute($tagfield);
  while (($res2) = $sth->fetchrow) {
        if (!$res2 || $res2 =~ /^items/) {