my $self = shift;
my $format = shift;
- return grep { my $c = $self->{columns}->{$_}; $c && $c->{visible} && (($c->{visible} == 1) || ($c->{visible} =~ /${format}/i)) } @{ $self->{column_order} };
+ return grep { my $c = $self->{columns}->{$_}; $c && $c->{visible} && (($c->{visible} == 1) || ($c->{visible} =~ /\Q${format}\E/i)) } @{ $self->{column_order} };
}
sub html_format {
my $self = shift;
my $variables = $self->prepare_html_content();
- return $self->{form}->parse_html_template2('report_generator/html_report', $variables);
+ return $self->{form}->parse_html_template('report_generator/html_report', $variables);
}
sub verify_paper_size {