}
sub format_amount {
- my ($self, $var, $places, $skip_zero) = @_;
+ my ($self, $var, $places, $skip_zero, $dash) = @_;
- return $main::form->format_amount(\%main::myconfig, $var * 1, $places) unless $skip_zero && $var == 0;
+ return $main::form->format_amount(\%main::myconfig, $var * 1, $places, $dash) unless $skip_zero && $var == 0;
return '';
}
my $self = shift;
my $word = shift || "";
- return join '<br>', map { $locale->quote_special_chars('HTML', $_) } split(m//, $word);
+ return join '<br>', map { $main::locale->quote_special_chars('HTML', $_) } split(m//, $word);
}
sub turn90 {