Parent Directory | Revision Log | Patch
revision 1209 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} ]; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |