Parent Directory | Revision Log | Patch
revision 600 by dpavlin, Mon Jul 10 10:16:11 2006 UTC | revision 601 by dpavlin, Sun Jul 23 17:33:11 2006 UTC | |
---|---|---|
# | Line 679 sub rec2 { | Line 679 sub rec2 { |
679 | my $f = shift; | my $f = shift; |
680 | return unless (defined($rec && $rec->{$f})); | return unless (defined($rec && $rec->{$f})); |
681 | my $sf = shift; | my $sf = shift; |
682 | warn "rec2($f,$sf) = ", dump( $rec->{$f} ), $/ if ($debug > 1); | |
683 | return map { | return map { |
684 | if (ref($_->{$sf}) eq 'ARRAY') { | if (ref($_->{$sf}) eq 'ARRAY') { |
685 | @{ $_->{$sf} }; | @{ $_->{$sf} }; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |