/[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 901 by dpavlin, Wed Oct 10 20:05:45 2007 UTC revision 902 by dpavlin, Wed Oct 10 21:00:27 2007 UTC
# Line 117  sub new { Line 117  sub new {
117                                  $v = $1;                                  $v = $1;
118                  } elsif ( $line eq 'ER' ) {                  } elsif ( $line eq 'ER' ) {
119                          # join tags                          # join tags
120                          foreach ( qw/AB/ ) {                          foreach ( qw/AB DE ID TI/ ) {
121                                  $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};                                  $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_};
122                          }                          }
123                          push @{ $self->{_rec} }, $rec;                          push @{ $self->{_rec} }, $rec;
Legend:
Removed from v.901  
changed lines
  Added in v.902
  ViewVC Help
Powered by ViewVC 1.1.26