Parent Directory | Revision Log | Patch
revision 1287 by dpavlin, Fri Sep 18 21:38:09 2009 UTC | revision 1288 by dpavlin, Sat Sep 19 08:41:06 2009 UTC | |
---|---|---|
# | Line 128 sub new { | Line 128 sub new { |
128 | } | } |
129 | } elsif ( $line eq 'ER' ) { | } elsif ( $line eq 'ER' ) { |
130 | # join tags | # join tags |
131 | foreach ( qw/AB DE ID TI SO RP SC FU FX/ ) { | foreach ( qw/AB DE ID TI SO RP SC FU FX PA JI/ ) { |
132 | $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_}; | $rec->{$_} = join(' ', @{ $rec->{$_} }) if defined $rec->{$_}; |
133 | } | } |
134 | # split on ; | # split on ; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |