Correcting issues retrieving contact info which contain '#' in description or contact info.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2297 4979c152-3d1c-0410-bac9-87ea11338e46

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);