From 4a4cee56efe9da8d2b5e64bb036189a8f35ce07c Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Sun, 6 Aug 2006 23:20:34 +0000
Subject: [PATCH] (SmileyReplace): HTML Unquote alt text of smilies.

---
 wiki.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index 0e8c1f74..b77afce4 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -271,7 +271,7 @@ sub InitRequest {
 
 sub InitVariables {    # Init global session variables for mod_perl!
   $WikiDescription = $q->p($q->a({-href=>'http://www.oddmuse.org/'}, 'Oddmuse'))
-    . $q->p(q{$Id: wiki.pl,v 1.686 2006/08/06 13:04:16 as Exp $});
+    . $q->p(q{$Id: wiki.pl,v 1.687 2006/08/06 23:20:34 as Exp $});
   $WikiDescription .= $ModulesDescription if $ModulesDescription;
   $PrintedHeader = 0;  # Error messages don't print headers unless necessary
   $ReplaceForm = 0;    # Only admins may search and replace
@@ -677,7 +677,7 @@ sub OpenHtmlEnvironment { # close the previous one and open a new one instead
 sub SmileyReplace {
   foreach my $regexp (keys %Smilies) {
     if (m/\G($regexp)/cg) {
-      return $q->img({-src=>$Smilies{$regexp}, -alt=>$1, -class=>'smiley'});
+      return $q->img({-src=>$Smilies{$regexp}, -alt=>UnquoteHtml($1), -class=>'smiley'});
     }
   }
 }