diff --git a/modules/searchtags.pl b/modules/searchtags.pl index 03710b34..2717e227 100644 --- a/modules/searchtags.pl +++ b/modules/searchtags.pl @@ -16,7 +16,7 @@ # 59 Temple Place, Suite 330 # Boston, MA 02111-1307 USA -$ModulesDescription .= '
$Id: searchtags.pl,v 1.3 2006/12/20 16:53:45 as Exp $
'; +$ModulesDescription .= '$Id: searchtags.pl,v 1.4 2007/08/11 10:11:57 as Exp $
'; push(@MyRules, \&SearchTagRule); @@ -25,7 +25,11 @@ sub SearchTagRule { my $tag_text = $1; my @tags = split /,\s*/, $tag_text; @tags = map { - qq{$_} + my $name = $_; + my $encoded = $name; + $encoded =~ s/ +/\\s+/g; + $encoded = UrlEncode($encoded); + ScriptLink("search=Tags:\\s*($encoded|.*,\\s*$encoded)(,|\\n)", $name); } @tags; $tags = join ', ', @tags; return "