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

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   06/10/18 08:07:05

Modified files:
        export         : export.pl 

Log message:
        using $biblionumber  instead of $bibid as var name + querying on 
biblioitems instead of marc_biblio (deprecated table)

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

Patches:
Index: export.pl
===================================================================
RCS file: /sources/koha/koha/export/Attic/export.pl,v
retrieving revision 1.1.4.1
retrieving revision 1.1.4.2
diff -u -b -r1.1.4.1 -r1.1.4.2
--- export.pl   14 Sep 2006 12:35:25 -0000      1.1.4.1
+++ export.pl   18 Oct 2006 08:07:05 -0000      1.1.4.2
@@ -20,15 +20,15 @@
        my $dbh=C4::Context->dbh;
        my $sth;
        if ($start_bib && $end_bib) {
-               $sth=$dbh->prepare("select biblionumber from marc_biblio where 
bibid >=? and bibid <=? order by bibid");
+               $sth=$dbh->prepare("select biblionumber from biblioitems where 
biblionumber >=? and biblionumber <=? order by biblionumber");
                $sth->execute($start_bib,$end_bib);
        } else {
-               $sth=$dbh->prepare("select biblionumber from marc_biblio order 
by bibid");
+               $sth=$dbh->prepare("select biblionumber from biblioitems order 
by biblionumber");
                $sth->execute();
        }
        my $i=0;
-       while (my ($bibid) = $sth->fetchrow) {
-               my $record = MARCgetbiblio($dbh,$bibid);
+       while (my ($biblionumber) = $sth->fetchrow) {
+               my $record = MARCgetbiblio($dbh,$biblionumber);
                print $i++."\n";
 #              print $record->as_formatted."\n";
                print OUT $record->as_usmarc();