Item13897: doc title is now correctly formed if 'Class' keyword is us…

…ed instead of 'package'
foswiki · Sep 23, 2016 · a517114 · a517114
1 parent 24826b5
commit a517114
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/core/lib/Foswiki/IncludeHandlers/doc.pm b/core/lib/Foswiki/IncludeHandlers/doc.pm
@@ -90,7 +90,10 @@ sub INCLUDE {
                     $isa = undef;
                 }
                 $line =~
-s/^---\+(?:!!)?\s+(?i:package|class)\s*(.*)/---+ =$visibility package= $1/;
+s/^---\+(?:!!)?\s+((?i)package|class)\s*(.*)/---+ =$visibility $1= $2/;
+                $app->prefs->setSessionPreferences( 'DOC_TITLE',
+                    "---++ !! =$visibility $1= "
+                      . _renderTitle( $app, $class ) );
             }
             else {
                 # Check for module names not prefixed with colon or left square
@@ -291,6 +294,7 @@ sub _renderTitle {
 sub _doclink ($) {
     my $app    = shift;
     my $module = $_[0];
+    $module =~ /^/; # Do it to reset $n match variables.
     $module =~ s/^_(.+)(_)$/$1/;
     my $formatChar = $2 // '';
     my $title = $_[1] || $module;