summaryrefslogtreecommitdiff
path: root/LedgerSMB/Template.pm
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/Template.pm')
-rwxr-xr-xLedgerSMB/Template.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/LedgerSMB/Template.pm b/LedgerSMB/Template.pm
index 4a694312..e66bcfd9 100755
--- a/LedgerSMB/Template.pm
+++ b/LedgerSMB/Template.pm
@@ -256,8 +256,16 @@ sub render {
$cleanvars->{text} = sub { return $self->{locale}->text(@_)};
}
else {
- $cleanvars->{text} = sub { return shift @_ };
- }
+ $cleanvars->{text} = sub { return shift @_ };
+
+ }
+ $cleanvars->{tt_url} = sub {
+ my $str = shift @_;
+
+ my $regex = qr/([^a-zA-Z0-9_.-])/;
+ $str =~ s/$regex/sprintf("%%%02x", ord($1))/ge;
+ return $str;
+ };
$format->can('process')->($self, $cleanvars);
#return $format->can('postprocess')->($self);