[Koha-cvs] CVS: koha/export marc.pl,1.2,1.2.2.1
MJ Ray
slef at users.sourceforge.net
Thu Jan 8 18:07:29 CET 2004
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);
More information about the Koha-cvs
mailing list