scan-adoc-refs: allow to overwrite title using attribute

diff --git a/scan-adoc-refs b/scan-adoc-refs
index 96f518294bbb8706780b854cca131b97b12d09a7..3885348fc7fc9762cc74c8366b39d9a722e2b8d7 100755 (executable)
--- a/scan-adoc-refs
+++ b/scan-adoc-refs
@@ -97,7 +97,13 @@ sub register_title {
     $title =~ s!http://\S+\[(.*?)\]!$1!g;
 
     $fileinfo->{titles}->{$env}->{$filename} = $title;
-    $fileinfo->{doctype}->{$env}->{$filename} = $doctype;
+
+    if (defined($doctype)) {
+       $fileinfo->{doctype}->{$env}->{$filename} = $doctype;
+    } else {
+       die "unable to change title (no doctype)"
+           if !defined($fileinfo->{doctype}->{$env}->{$filename});
+    }
 }
 
 sub scan_adoc_file {
@@ -157,6 +163,10 @@ sub scan_adoc_file {
                        if !defined($title);
                    $fileinfo->{toplevel}->{$e}->{$filename} = 1;
                }
+           } elsif ($key eq 'title') {
+               foreach my $e (@{$env_stack->[-1]}) {
+                   register_title($filename, $e, undef, $value);
+               }
            }
        }