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

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

revision 904 by dpavlin, Fri Oct 12 12:07:35 2007 UTC revision 1077 by dpavlin, Wed Nov 28 22:52:01 2007 UTC
# Line 106  sub new { Line 106  sub new {
106          my $tag;          my $tag;
107          my $rec;          my $rec;
108    
109            $self->{size} = 0;
110    
111          while( $line = <$fh> ) {          while( $line = <$fh> ) {
112                  chomp($line);                  chomp($line);
113    
# Line 121  sub new { Line 123  sub new {
123                          foreach ( qw/AB DE ID TI/ ) {                          foreach ( qw/AB DE ID TI/ ) {
124                                  $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};                                  $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};
125                          }                          }
126                            $rec->{'000'} = [ ++$self->{size} ];
127                          push @{ $self->{_rec} }, $rec;                          push @{ $self->{_rec} }, $rec;
128                          $rec = {};                          $rec = {};
129                          $line = <$fh>;                          $line = <$fh>;
# Line 173  Return number of records in database Line 176  Return number of records in database
176    
177  sub size {  sub size {
178          my $self = shift;          my $self = shift;
179          return $#{$self->{_rec}} + 1;          return $self->{size};
180  }  }
181    
182  =head1 SEE ALSO  =head1 SEE ALSO
Legend:
Removed from v.904  
changed lines
  Added in v.1077
  ViewVC Help
Powered by ViewVC 1.1.26