[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)address@hidden;
+    my ($biblionumber,$biblioitemnumber,$record)address@hidden;
 
-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 (address@hidden){
-         
-my $newrec = MARC::Field->new( $tagfield,'','', $biblionumtagsubfield => 
$biblionumber,$biblioitemtagsubfield=>$biblioitemnumber);
+    if (address@hidden){
+        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";        
        }
 
 }