[Koha-cvs] koha/zebraplugin/utils missing090field.pl [dev_week]

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     paul poulain <tipaul>   06/08/02 13:09:46

Modified files:
        zebraplugin/utils: missing090field.pl 

Log message:
        fix in SQL statement

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/zebraplugin/utils/missing090field.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.1.2.1&r2=1.1.2.2

Patches:
Index: missing090field.pl
===================================================================
RCS file: /sources/koha/koha/zebraplugin/utils/Attic/missing090field.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- missing090field.pl  3 Jul 2006 21:56:45 -0000       1.1.2.1
+++ missing090field.pl  2 Aug 2006 13:09:46 -0000       1.1.2.2
@@ -14,11 +14,12 @@
 
 my $dbh = C4::Context->dbh;
 
-my $sth=$dbh->prepare("select m.biblionumber,b.biblioitemnumber from 
marc_biblio m left join biblioitems b on b.biblionumber=m.biblionumber ");
+my $sth=$dbh->prepare("select m.biblionumber,b.biblioitemnumber from 
marc_biblio m left join biblioitems b on b.biblionumber=m.biblionumber where 
m.biblionumber>'9800'");
        $sth->execute();
 
 while (my ($biblionumber,$biblioitemnumber)=$sth->fetchrow ){
  my $record = MARCgetbiblio($dbh,$biblionumber);
+    print "$biblionumber \n";  
                
                MARCmodbiblionumber($biblionumber,$biblioitemnumber,$record);