/[Sack]/trunk/views/00.demo.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/views/00.demo.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4 by dpavlin, Sun Sep 20 18:54:50 2009 UTC revision 5 by dpavlin, Mon Sep 21 15:36:47 2009 UTC
# Line 1  Line 1 
1    
2  $out->{fields}->{$_}++ foreach keys %$rec;  $out->{fields}->{$_}++ foreach keys %$rec;
3    
4  $out->{years}->{ $rec->{PY}->[0] }++;  #$out->{years}->{ $rec->{PY}->[0] }++;
5    
6  $out->{DT}->{ $_ }++ foreach @{ $rec->{DT} };  #$out->{DT}->{ $_ }++ foreach @{ $rec->{DT} };
7    
8  $out->{SC}->{ $_ }++ foreach @{ $rec->{SC} };  #$out->{SC}->{ $_ }++ foreach @{ $rec->{SC} };
9    
10  # XXX dump first record  # XXX dump first record
11  $out->{debug} ||= $rec;  #$out->{_debug_rec} ||= $rec;
12    
13  #push @{ $out->{TI} }, $rec->{TI};  #push @{ $out->{TI} }, $rec->{TI};
14    
15    #push @{ $out->{_debug_id} }, $rec->{'000'};
Legend:
Removed from v.4  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.26