Parent Directory | Revision Log | 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"}) |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |