link to hash

This commit is contained in:
Alex Schroeder
2004-02-09 21:49:14 +00:00
parent 6f5ca6e828
commit 883e41ddbf

View File

@@ -16,13 +16,13 @@
# 59 Temple Place, Suite 330
# Boston, MA 02111-1307 USA
$ModulesDescription .= '<p>$Id: anchors.pl,v 1.6 2004/02/09 21:48:16 as Exp $</p>';
$ModulesDescription .= '<p>$Id: anchors.pl,v 1.7 2004/02/09 21:49:14 as Exp $</p>';
push(@MyRules, \&AnchorsRule);
sub AnchorsRule {
if (m/\G\[\[\#([-a-zA-Z0-9_]+)\]\]/gc) {
return $q->a({-href=>"$1", -class=>'anchor'}, $1);
return $q->a({-href=>"#$1", -class=>'anchor'}, $1);
}
return '';
}