=================================================================== RCS file: /cvs/RT/Invoicing/lib/RTI/Util.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- RT/Invoicing/lib/RTI/Util.pm 2011/12/31 02:14:48 1.1 +++ RT/Invoicing/lib/RTI/Util.pm 2011/12/31 02:21:09 1.2 @@ -7,7 +7,15 @@ use Carp; use DateTime; -our @EXPORT_OK = qw/ ymd_to_DateTime /; +our @EXPORT_OK = qw/ round ymd_to_DateTime /; + +sub round { + my ($amount) = @_; + + #$amount =~ s/\.\d\d\K.*$//; + #return $amount; + return sprintf "%.02f", $amount; +} sub ymd_to_DateTime { my ($ymd) = @_;