[Koha-cvs] koha/export export.pl [rel_3_0]

[LAURIN arnaud]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	LAURIN arnaud <alaurin>	06/09/14 12:35:25

Modified files:
	export         : export.pl 

Log message:
	exporting on biblionumber, not on bibid

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/export/export.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1&r2=1.1.4.1

Patches:
Index: export.pl
===================================================================
RCS file: /sources/koha/koha/export/Attic/export.pl,v
retrieving revision 1.1
retrieving revision 1.1.4.1
diff -u -b -r1.1 -r1.1.4.1
--- export.pl	31 Mar 2006 18:06:40 -0000	1.1
+++ export.pl	14 Sep 2006 12:35:25 -0000	1.1.4.1
@@ -20,15 +20,17 @@
 	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=$dbh->prepare("select biblionumber 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=$dbh->prepare("select biblionumber from marc_biblio order by bibid");
 		$sth->execute();
 	}
+	my $i=0;
 	while (my ($bibid) = $sth->fetchrow) {
 		my $record = MARCgetbiblio($dbh,$bibid);
-
+		print $i++."\n";
+#		print $record->as_formatted."\n";
 		print OUT $record->as_usmarc();
 	}
 close(OUT);