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