125 |
my $attr_labels = read_config_txt 'labels'; |
my $attr_labels = read_config_txt 'labels'; |
126 |
my $attr_operators = read_config_txt 'operators'; |
my $attr_operators = read_config_txt 'operators'; |
127 |
|
|
128 |
my @attr = @{ $attr_labels->{'-values'} }; |
my @attr = @{ $attr_labels->{'-values'} } if $attr_labels; |
129 |
@attr = keys %{ $stats->{attr} } unless @attr; |
@attr = keys %{ $stats->{attr} } unless @attr; |
130 |
|
|
131 |
|
|
291 |
next unless defined $data->{$attr}; |
next unless defined $data->{$attr}; |
292 |
my $v = $data->{$attr}; |
my $v = $data->{$attr}; |
293 |
if ( $html_markup && ! $html_markup_skip->{$attr} ) { |
if ( $html_markup && ! $html_markup_skip->{$attr} ) { |
294 |
eval "\$v = $html_markup->$attr( \$v );"; |
eval "\$v = $html_markup->$attr( \$v, \$data );"; |
295 |
if ( $@ ) { |
if ( $@ ) { |
296 |
warn "disable html markup for $attr: $@"; |
warn "disable html markup for $attr: $@"; |
297 |
$html_markup_skip->{$attr} = $@; |
$html_markup_skip->{$attr} = $@; |