Parent Directory | Revision Log | Patch
revision 101 by dpavlin, Mon Jul 14 10:52:13 2003 UTC | revision 104 by dpavlin, Mon Jul 14 10:55:35 2003 UTC | |
---|---|---|
# | Line 293 print STDERR "reading ./import_xml/$type | Line 293 print STDERR "reading ./import_xml/$type |
293 | ||
294 | # output current progress indicator | # output current progress indicator |
295 | my $last_p = 0; | my $last_p = 0; |
print STDERR "## show_progress: $show_progress ##\n"; # XXX | ||
296 | sub progress { | sub progress { |
297 | return if (! $show_progress); | return if (! $show_progress); |
298 | my $current = shift; | my $current = shift; |
# | Line 307 print STDERR "## show_progress: $show_pr | Line 306 print STDERR "## show_progress: $show_pr |
306 | ||
307 | my $fake_dir = 1; | my $fake_dir = 1; |
308 | sub fakeprogress { | sub fakeprogress { |
309 | return if (! $show_progress); | |
310 | my $current = shift @_; | my $current = shift @_; |
311 | ||
312 | my @ind = ('-','\\','|','/','-','\\','|','/', '-'); | my @ind = ('-','\\','|','/','-','\\','|','/', '-'); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |