99c99
<       $wikiWordRegex $webNameRegex $defaultWebNameRegex $anchorRegex $abbrevRegex $emailAddrRegex
---
>       $wikiWordRegex $webNameRegex $defaultWebNameRegex $anchorRegex $classRegex $abbrevRegex $emailAddrRegex
473a474
>     $classRegex = qr/\~[${mixedAlphaNum}_]+/;
2330c2331
<     my( $thePreamble, $theWeb, $theTopic, $theLinkText, $theAnchor, $doLink ) = @_;
---
>     my( $thePreamble, $theWeb, $theTopic, $theLinkText, $theAnchor, $doLink, $className ) = @_;
2363a2365,2369
>     my $classString = "";
>     if ($className) {
>         $className =~ s/^\~//;
>         $classString = " class=\"$className\"";
>     }
2369c2375,2376
<                   .  "$theWeb/$theTopic\#$anchor\">$theLinkText<\/a>";
---
>                   .  "$theWeb/$theTopic\#$anchor\""
>                   .  "$classString>$theLinkText<\/a>";
2373c2380,2381
<                   .  "$theWeb/$theTopic\">$theLinkText<\/a>";
---
>                   .  "$theWeb/$theTopic\""
>                   .  "$classString>$theLinkText<\/a>";
2380c2388
<               .  "<a href=\"$scriptUrlPath/edit$scriptSuffix/$theWeb/$theTopic?topicparent=$webName.$topicName\">?</a>";
---
>               .  "<a href=\"$scriptUrlPath/edit$scriptSuffix/$theWeb/$theTopic?topicparent=$webName.$topicName\" $classString>?</a>";
2421c2429
<       $theLink =~ s/($anchorRegex$)//;
---
>       $theLink =~ s/($anchorRegex)//;
2422a2431,2432
>       $theLink =~ s/($classRegex)//;
>       my $class = $1 || "";
2434c2444
<       return internalLink( $thePreamble, $web, $topic, $theText, $anchor, 1 );
---
>       return internalLink( $thePreamble, $web, $topic, $theText, $anchor, 1, $class );