Parent Directory | Revision Log
fix prefix
1 | dpavlin | 1 | |
2 | dpavlin | 14 | #$out->{fields}->{$_}++ foreach keys %$rec; |
3 | dpavlin | 1 | |
4 | dpavlin | 5 | #$out->{years}->{ $rec->{PY}->[0] }++; |
5 | dpavlin | 1 | |
6 | dpavlin | 5 | #$out->{DT}->{ $_ }++ foreach @{ $rec->{DT} }; |
7 | dpavlin | 1 | |
8 | dpavlin | 14 | $out->{SC}->{ $_ }++ foreach @{ $rec->{SC} }; |
9 | dpavlin | 2 | |
10 | dpavlin | 1 | # XXX dump first record |
11 | dpavlin | 5 | #$out->{_debug_rec} ||= $rec; |
12 | dpavlin | 1 | |
13 | #push @{ $out->{TI} }, $rec->{TI}; | ||
14 | |||
15 | dpavlin | 5 | #push @{ $out->{_debug_id} }, $rec->{'000'}; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |