Try create a global template called 'format_usd':
sub {
my ($name) = shift;
my $tags = GT::Template->tags;
my $value = $tags->{$name};
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_usd('variable_name')%> in the template
TheStone.
B.
sub {
my ($name) = shift;
my $tags = GT::Template->tags;
my $value = $tags->{$name};
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_usd('variable_name')%> in the template
TheStone.
B.