/[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 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          }          }
Legend:
Removed from v.290  
changed lines
  Added in v.292
  ViewVC Help
Powered by ViewVC 1.1.26