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;

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

1	dpavlin	1
2			$out->{fields}->{$_}++ foreach keys %$rec;
3
4			$out->{years}->{ $rec->{PY}->[0] }++;
5
6			$out->{DT}->{ $_ }++ foreach @{ $rec->{DT} };
7
8	dpavlin	2	$out->{SC}->{ $_ }++ foreach @{ $rec->{SC} };
9
10	dpavlin	1	# XXX dump first record
11			$out->{debug} \|\|= $rec;
12
13			#push @{ $out->{TI} }, $rec->{TI};
14