From edc73653fb32890096a3b2fa15a7a95ff22e0882 Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Mon, 10 Oct 2016 08:42:20 +0200 Subject: [PATCH] scan-adoc-refs: allow to overwrite title using attribute --- scan-adoc-refs | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/scan-adoc-refs b/scan-adoc-refs index 96f5182..3885348 100755 --- 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); + } } } -- 2.39.2