--- trunk/lib/WebPAC/Input/ISI.pm 2007/10/10 20:05:45 901 +++ trunk/lib/WebPAC/Input/ISI.pm 2007/10/10 21:00:27 902 @@ -117,7 +117,7 @@ $v = $1; } elsif ( $line eq 'ER' ) { # join tags - foreach ( qw/AB/ ) { + foreach ( qw/AB DE ID TI/ ) { $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_}; } push @{ $self->{_rec} }, $rec;