/[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 1314 by dpavlin, Wed Sep 23 14:43:13 2009 UTC
# Line 55  path to ISI export file Line 55  path to ISI export file
55    
56  =cut  =cut
57    
58  my $subfields = {  our $subfields = {
59          'CR' => sub {          'CR' => sub {
60                  my $full_cr = shift;                  my $full_cr = shift;
61                  my @v = split(/, /, $full_cr);                  my @v = split(/, /, $full_cr);
# 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.1314
  ViewVC Help
Powered by ViewVC 1.1.26