/[webpac2]/trunk/lib/WebPAC/Input.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 6 by dpavlin, Sat Jul 16 14:44:38 2005 UTC revision 9 by dpavlin, Sat Jul 16 17:14:43 2005 UTC
# Line 42  Perhaps a little code snippet. Line 42  Perhaps a little code snippet.
42    
43  Create new input database object.  Create new input database object.
44    
45    my $db = new WebPAC::Input( format => 'NULL' );    my $db = new WebPAC::Input(
46            format => 'NULL'
47            code_page => 'ISO-8859-2',
48      );
49    
50    Optional parametar C<code_page> specify application code page (which will be
51    used internally). This should probably be your terminal encoding, and by
52    default, it C<ISO-8859-2>.
53    
54  =cut  =cut
55    
# Line 51  sub new { Line 58  sub new {
58          my $self = {@_};          my $self = {@_};
59          bless($self, $class);          bless($self, $class);
60    
61            $self->{'code_page'} ||= 'ISO-8859-2';
62    
63          $self ? return $self : return undef;          $self ? return $self : return undef;
64  }  }
65    
Legend:
Removed from v.6  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26