forked from github/kensanata.oddmuse
link to hash
This commit is contained in:
@@ -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 '';
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user