Parent Directory | Revision Log | Patch
revision 344 by dpavlin, Sat Jan 7 02:05:55 2006 UTC | revision 346 by dpavlin, Sat Jan 7 03:28:10 2006 UTC | |
---|---|---|
# | Line 600 sub get_data { | Line 600 sub get_data { |
600 | if ($$rec->{$f}->[$i] =~ /HASH/o) { | if ($$rec->{$f}->[$i] =~ /HASH/o) { |
601 | my $out; | my $out; |
602 | foreach my $k (keys %{$$rec->{$f}->[$i]}) { | foreach my $k (keys %{$$rec->{$f}->[$i]}) { |
603 | $out .= $$rec->{$f}->[$i]->{$k}." "; | my $v = $$rec->{$f}->[$i]->{$k}; |
604 | $out .= "$v " if ($v); | |
605 | } | } |
606 | return $out; | return $out; |
607 | } else { | } else { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |