/[webpac2]/branches/Sack/lib/WebPAC/Input/ISI.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 /branches/Sack/lib/WebPAC/Input/ISI.pm

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

revision 1311 by dpavlin, Mon Sep 21 19:36:09 2009 UTC revision 1312 by dpavlin, Mon Sep 21 20:05:14 2009 UTC
# Line 110  sub new { Line 110  sub new {
110                  chomp($line);                  chomp($line);
111                  next unless $line eq 'ER';                  next unless $line eq 'ER';
112                  push @{ $self->{record_offset} }, tell($fh);                  push @{ $self->{record_offset} }, tell($fh);
113                  last if $#{ $self->{record_offset} } > $self->{offset} + $self->{limit};                  last if $self->{limit} && $#{ $self->{record_offset} } >= $self->{limit} - 1 + $self->{offset};
114          }          }
115          push @{ $self->{record_offset} }, tell($fh); # end of file          push @{ $self->{record_offset} }, tell($fh); # end of file
116    
Legend:
Removed from v.1311  
changed lines
  Added in v.1312
  ViewVC Help
Powered by ViewVC 1.1.26