From 4dd7dcfe5ee9087e4bbb4ca0657fb326f25fc9a7 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 6 Sep 2008 21:25:42 +0000
Subject: [PATCH] Remove single quote from the list of allowable characters.
 Remove single quotes from parsed International macros in the template tester.

---
 lib/WebGUI/International.pm | 2 +-
 t/i18n/template.t           | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/International.pm b/lib/WebGUI/International.pm
index 9b23a7c26..3ffacaf88 100644
--- a/lib/WebGUI/International.pm
+++ b/lib/WebGUI/International.pm
@@ -93,7 +93,7 @@ A string that specifies the language that the user should see.  Defaults to the
 
 =cut
 
-my $safeRe = qr/[^\.\w\d\s\/'\^\;\?]/;
+my $safeRe = qr/[^\.\w\d\s\/\^\;\?]/;
 
 sub get {
 	my ($self, $id, $namespace, $language) = @_;
diff --git a/t/i18n/template.t b/t/i18n/template.t
index 1c148d0cc..ff0376447 100644
--- a/t/i18n/template.t
+++ b/t/i18n/template.t
@@ -67,6 +67,8 @@ while (my $templateAsset = $getATemplate->()) {
     }
     while ($template =~ /$macro/msgc) {
         my ($label, $namespace) = split /,/, $1;
+        $label     =~ tr/'//d;
+        $namespace =~ tr/'//d;
         push @templateLabels, {
             label      => $label,
             namespace  => $namespace,