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

[Paul POULAIN]

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

Modified Files:
	marc.pl 
Log Message:
synch'ing with rel_2_0

Index: marc.pl
===================================================================
RCS file: /cvsroot/koha/koha/export/marc.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** marc.pl	6 Nov 2003 15:14:57 -0000	1.2
--- marc.pl	12 Jan 2004 16:59:03 -0000	1.3
***************
*** 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);