[Koha-cvs] CVS: koha/export marc.pl,1.2,1.2.2.1

[MJ Ray]

Update of /cvsroot/koha/koha/export
In directory sc8-pr-cvs1:/tmp/cvs-serv12463/export

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

Index: marc.pl
===================================================================
RCS file: /cvsroot/koha/koha/export/marc.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** marc.pl     6 Nov 2003 15:14:57 -0000       1.2
--- marc.pl     8 Jan 2004 17:07:27 -0000       1.2.2.1
***************
*** 16,27 ****
        my $end_bib = $query->param("end_bib");
        my $dbh=C4::Context->dbh;
!       my $query;
        if ($start_bib && $end_bib) {
!               $query = "select bibid from marc_biblio where bibid 
>=$start_bib and bibid <=$end_bib order by bibid";
        } else {
!               $query = "select bibid from marc_biblio order by bibid";
        }
-       my $sth=$dbh->prepare($query);
-       $sth->execute;
        while (my ($bibid) = $sth->fetchrow) {
                my $record = MARCgetbiblio($dbh,$bibid);
--- 16,27 ----
        my $end_bib = $query->param("end_bib");
        my $dbh=C4::Context->dbh;
!       my $sth;
        if ($start_bib && $end_bib) {
!               $sth=$dbh->prepare("select bibid from marc_biblio where bibid 
>=? and bibid <=? order by bibid");
!               $sth->execute($start_bib,$end_bib);
        } else {
!               $sth=$dbh->prepare("select bibid from marc_biblio order by 
bibid");
!               $sth->execute();
        }
        while (my ($bibid) = $sth->fetchrow) {
                my $record = MARCgetbiblio($dbh,$bibid);