/[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 1214 by dpavlin, Sat May 30 14:21:58 2009 UTC revision 1215 by dpavlin, Tue Jun 2 13:16:02 2009 UTC
# Line 124  sub new { Line 124  sub new {
124                                  }                                  }
125                  } elsif ( $line eq 'ER' ) {                  } elsif ( $line eq 'ER' ) {
126                          # join tags                          # join tags
127                          foreach ( qw/AB DE ID TI/ ) {                          foreach ( qw/AB DE ID TI SO RP SC/ ) {
128                                  $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};                                  $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};
129                          }                          }
130                          $rec->{'000'} = [ ++$self->{size} ];                          $rec->{'000'} = [ ++$self->{size} ];
Legend:
Removed from v.1214  
changed lines
  Added in v.1215
  ViewVC Help
Powered by ViewVC 1.1.26