(AnchorsRule): Added invisible anchor

definition.
This commit is contained in:
Alex Schroeder
2004-08-06 20:37:57 +00:00
parent b5ed10aebf
commit 21b2ad68b4

View File

@@ -16,13 +16,15 @@
# 59 Temple Place, Suite 330
# Boston, MA 02111-1307 USA
$ModulesDescription .= '<p>$Id: anchors.pl,v 1.8 2004/06/17 01:13:18 as Exp $</p>';
$ModulesDescription .= '<p>$Id: anchors.pl,v 1.9 2004/08/06 20:37:57 as Exp $</p>';
push(@MyRules, \&AnchorsRule);
sub AnchorsRule {
if (m/\G\[\[\#([-a-zA-Z0-9_]+)\]\]/gc) {
return $q->a({-href=>"#$1", -class=>'anchor'}, $1);
} elsif (m/\G\[\[\:([-a-zA-Z0-9_]+)\]\]/gc) {
return $q->a({-name=>"#$1", -class=>'anchor definition'}, $1);
}
return undef;
}