/[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 301 by dpavlin, Mon Dec 19 21:26:04 2005 UTC
# Line 101  sub new { Line 101  sub new {
101                  my $n = $self->{module} . '::' . $subclass;                  my $n = $self->{module} . '::' . $subclass;
102                  if (! defined &{ $n }) {                  if (! defined &{ $n }) {
103                          my $missing = "missing $subclass in $self->{module}";                          my $missing = "missing $subclass in $self->{module}";
104                          $log->logwarn($missing);                          $self->{$subclass} = sub { $log->logwarn($missing) };
                         $self->{$subclass} = sub { warn "$missing\n" };  
105                  } else {                  } else {
106                          $self->{$subclass} = \&{ $n };                          $self->{$subclass} = \&{ $n };
107                  }                  }
# Line 177  sub open { Line 176  sub open {
176          my $code_page = $arg->{'code_page'} || '852';          my $code_page = $arg->{'code_page'} || '852';
177    
178          # store data in object          # store data in object
179          $self->{'code_page'} = $code_page;          $self->{'input_code_page'} = $code_page;
180          foreach my $v (qw/path offset limit/) {          foreach my $v (qw/path offset limit/) {
181                  $self->{$v} = $arg->{$v} if ($arg->{$v});                  $self->{$v} = $arg->{$v} if ($arg->{$v});
182          }          }
# Line 210  sub open { Line 209  sub open {
209          }          }
210    
211          if ($self->{limit}) {          if ($self->{limit}) {
212                  $log->info("limiting to ",$self->{limit}," records");                  $log->debug("limiting to ",$self->{limit}," records");
213                  $limit = $offset + $self->{limit} - 1;                  $limit = $offset + $self->{limit} - 1;
214                  $limit = $size if ($limit > $size);                  $limit = $size if ($limit > $size);
215          }          }
Legend:
Removed from v.290  
changed lines
  Added in v.301
  ViewVC Help
Powered by ViewVC 1.1.26