use SL::AM;
+use strict;
+
sub new {
my $class = shift;
my $context = shift;
return '';
}
+sub round_amount {
+ my ($self, $var, $places, $skip_zero) = @_;
+
+ return $main::form->round_amount($var * 1, $places) unless $skip_zero && $var == 0;
+ return '';
+}
+
sub format_amount_units {
my ($self, $amount, $amount_unit, $part_unit) = @_;
}
}
+sub abs {
+ my $self = shift;
+ my $var = shift;
+
+ return $var < 0 ? $var * -1 : $var;
+}
+
1;