--- trunk/lib/WebPAC/Input.pm	2005/07/16 14:44:38	6
+++ trunk/lib/WebPAC/Input.pm	2005/07/16 17:14:43	9
@@ -42,7 +42,14 @@
 
 Create new input database object.
 
-  my $db = new WebPAC::Input( format => 'NULL' );
+  my $db = new WebPAC::Input(
+  	format => 'NULL'
+	code_page => 'ISO-8859-2',
+  );
+
+Optional parametar C<code_page> specify application code page (which will be
+used internally). This should probably be your terminal encoding, and by
+default, it C<ISO-8859-2>.
 
 =cut
 
@@ -51,6 +58,8 @@
         my $self = {@_};
 	bless($self, $class);
 
+	$self->{'code_page'} ||= 'ISO-8859-2';
+
 	$self ? return $self : return undef;
 }