[Koha-cvs] koha/misc/migration_tools/22_to_30 missing090fi... [rel_3_0]

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	paul poulain <tipaul>	07/03/09 11:01:20

Modified files:
	misc/migration_tools/22_to_30: missing090field.pl 

Log message:
	- reindenting
	- adding $|=1 to see progress bar

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/migration_tools/22_to_30/missing090field.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.2&r2=1.1.2.3

Patches:
Index: missing090field.pl
===================================================================
RCS file: /sources/koha/koha/misc/migration_tools/22_to_30/Attic/missing090field.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- missing090field.pl	5 Dec 2006 11:35:31 -0000	1.1.2.2
+++ missing090field.pl	9 Mar 2007 11:01:20 -0000	1.1.2.3
@@ -11,40 +11,39 @@
 use MARC::Record;
 use MARC::File::USMARC;
 
-
+$|=1;
 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");
 	$sth->execute();
 
+my $i=1;
 while (my ($biblionumber,$biblioitemnumber)=$sth->fetchrow ){
  my $record = GetMarcBiblio($biblionumber);
-    print "$biblionumber \n";	
- 
+    print ".";	
+    print "\r$i" unless $i %100;
 		MARCmodbiblionumber($biblionumber,$biblioitemnumber,$record);
-		
 }
 
 sub MARCmodbiblionumber{
-my ($biblionumber,$biblioitemnumber,$record)=@_;
+    my ($biblionumber,$biblioitemnumber,$record)=@_;
 
-my ($tagfield,$biblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber","");
-my ($tagfield2,$biblioitemtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblioitemnumber","");
+    my ($tagfield,$biblionumtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblionumber","");
+    my ($tagfield2,$biblioitemtagsubfield) = &MARCfind_marc_from_kohafield($dbh,"biblio.biblioitemnumber","");
 	
-my $update=0;
+    my $update=0;
       my @tags = $record->field($tagfield);
 
-if (!@tags){
-         
-my $newrec = MARC::Field->new( $tagfield,'','', $biblionumtagsubfield => $biblionumber,$biblioitemtagsubfield=>$biblioitemnumber);
+    if (!@tags){
+        my $newrec = MARC::Field->new( $tagfield,'','', $biblionumtagsubfield => $biblionumber,$biblioitemtagsubfield=>$biblioitemnumber);
     $record->append_fields($newrec);
  $update=1;
 	} 	
 
  
-if ($update){	
-&MARCmodbiblio($dbh,$biblionumber,$record,'',0);
-	print "$biblionumber \n";	
+    if ($update){	
+        &MARCmodbiblio($dbh,$biblionumber,$record,'',0);
+        print "\n modified : $biblionumber \n";	
 	}
 
 }