Parent Directory | Revision Log | Patch
revision 41 by dpavlin, Sat Mar 12 21:05:29 2005 UTC | revision 44 by dpavlin, Thu Jul 6 11:02:37 2006 UTC | |
---|---|---|
# | Line 475 sub to_hash { | Line 475 sub to_hash { |
475 | foreach my $l (@{$row->{$k}}) { | foreach my $l (@{$row->{$k}}) { |
476 | ||
477 | # filter output | # filter output |
478 | $l = $self->{'hash_filter'}->($l) if ($self->{'hash_filter'}); | if ($self->{'hash_filter'}) { |
479 | $l = $self->{'hash_filter'}->($l); | |
480 | next unless defined($l); | |
481 | } | |
482 | ||
483 | my $val; | my $val; |
484 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |