[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);