/[webpac]/trunk/tools/isis2marc.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/tools/isis2marc.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 228 by dpavlin, Mon Feb 23 23:17:17 2004 UTC revision 229 by dpavlin, Mon Feb 23 23:21:43 2004 UTC
# Line 98  foreach my $db_file (@ARGV) { Line 98  foreach my $db_file (@ARGV) {
98          }          }
99          $total += $new;          $total += $new;
100          printf "\t%d (%0.2f%%) t: %d\n",$new,($new*100/$maxmfn),$total;          printf "\t%d (%0.2f%%) t: %d\n",$new,($new*100/$maxmfn),$total;
         $marc->output({file=>"> $marc_file",'format'=>"usmarc"})  
101  }  }
102    
103    $marc->output({file=>"> $marc_file",'format'=>"usmarc"})

Legend:
Removed from v.228  
changed lines
  Added in v.229

  ViewVC Help
Powered by ViewVC 1.1.26