Try the global template below:
sub {
my ($val1,$val2) = @_;
my $value = $val1 - $val2;
my $dol_str = reverse sprintf( "%.2f", $value );
$dol_str =~ s/(\d\d\d)/$1./g;
$dol_str =~ s/.$//;
$dol_str = $dol_str;
return scalar reverse $dol_str;
}
Now you can use <%format_num($MSRP, $Price)%>
Hope that helps
TheStone.
B.
sub {
my ($val1,$val2) = @_;
my $value = $val1 - $val2;
my $dol_str = reverse sprintf( "%.2f", $value );
$dol_str =~ s/(\d\d\d)/$1./g;
$dol_str =~ s/.$//;
$dol_str = $dol_str;
return scalar reverse $dol_str;
}
Now you can use <%format_num($MSRP, $Price)%>
Hope that helps
TheStone.
B.