Parent Directory | Revision Log | Patch
revision 290 by dpavlin, Sun Dec 18 23:10:02 2005 UTC | revision 292 by dpavlin, Sun Dec 18 23:34:30 2005 UTC | |
---|---|---|
# | Line 177 sub open { | Line 177 sub open { |
177 | my $code_page = $arg->{'code_page'} || '852'; | my $code_page = $arg->{'code_page'} || '852'; |
178 | ||
179 | # store data in object | # store data in object |
180 | $self->{'code_page'} = $code_page; | $self->{'input_code_page'} = $code_page; |
181 | foreach my $v (qw/path offset limit/) { | foreach my $v (qw/path offset limit/) { |
182 | $self->{$v} = $arg->{$v} if ($arg->{$v}); | $self->{$v} = $arg->{$v} if ($arg->{$v}); |
183 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |