trunk/views/00.demo.pl


#$out->{fields}->{$_}++ foreach keys %$rec;

#$out->{years}->{ $rec->{PY}->[0] }++;

#$out->{DT}->{ $_ }++ foreach @{ $rec->{DT} };

$out->{SC}->{ $_ }++ foreach @{ $rec->{SC} };

# XXX dump first record
#$out->{_debug_rec} ||= $rec;

#push @{ $out->{TI} }, $rec->{TI};

#push @{ $out->{_debug_id} }, $rec->{'000'};
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'};