--- trunk/lib/WebPAC/Input.pm	2005/07/16 11:07:38	3
+++ trunk/lib/WebPAC/Input.pm	2005/07/16 17:14:43	9
@@ -26,6 +26,7 @@
     my $db = WebPAC::Input->new(
     	format => 'NULL',
 	config => $config,
+	lookup => $lookup_obj,
     );
 
     $db->open('/path/to/database');
@@ -41,9 +42,14 @@
 
 Create new input database object.
 
-  my $db = new WebPAC::Input( format => 'NULL' );
-
-This function will load needed wrapper module and
+  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
 
@@ -52,25 +58,11 @@
         my $self = {@_};
 	bless($self, $class);
 
-	$self ? return $self : return undef;
-}
-
-=head2 open
-
-=cut
-
-sub open {
-}
-
-=head2 function2
-
-=cut
+	$self->{'code_page'} ||= 'ISO-8859-2';
 
-sub function2 {
+	$self ? return $self : return undef;
 }
 
-
-
 =head1 MEMORY USAGE
 
 C<low_mem> options is double-edged sword. If enabled, WebPAC