a bit more work on WebPAC::Input::ISIS

[webpac2] / lib / WebPAC / Input.pm

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index 3d52a91..bb151a9 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -42,7 +42,14 @@ Perhaps a little code snippet.
 
 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 @@ sub new {
         my $self = {@_};
        bless($self, $class);
 
+       $self->{'code_page'} ||= 'ISO-8859-2';
+
        $self ? return $self : return undef;
 }