Parent Directory | Revision Log | 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; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |