--- trunk/lib/WebPAC/Input.pm	2006/02/26 23:21:50	416
+++ trunk/lib/WebPAC/Input.pm	2006/05/14 09:34:05	483
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-use WebPAC::Common;
+use WebPAC::Common 0.03;
 use base qw/WebPAC::Common/;
 use Text::Iconv;
 use Data::Dumper;
@@ -65,6 +65,7 @@
 	code_page => 'ISO-8859-2',
 	low_mem => 1,
 	recode => 'char pairs',
+	no_progress_bar => 1,
   );
 
 C<module> is low-level file format module. See L<WebPAC::Input::Isis> and
@@ -76,6 +77,11 @@
 
 Default is not to use C<low_mem> options (see L<MEMORY USAGE> below).
 
+C<recode> is optional string constisting of character or words pairs that
+should be replaced in input stream.
+
+C<no_progress_bar> disables progress bar output on C<STDOUT>
+
 This function will also call low-level C<init> if it exists with same
 parametars.
 
@@ -273,7 +279,7 @@
 		# create lookup
 		$self->{'lookup'}->add( $rec ) if ($rec && $self->{'lookup'});
 
-		$self->progress_bar($pos,$to_rec);
+		$self->progress_bar($pos,$to_rec) unless ($self->{no_progress_bar});
 
 	}
 
@@ -319,7 +325,7 @@
 		return;
 	}
 
-	$self->progress_bar($mfn,$self->{max_pos});
+	$self->progress_bar($mfn,$self->{max_pos}) unless ($self->{no_progress_bar});
 
 	my $rec;