Chapters Introduction and Server are also subjects, and all pages in

those chapters should refer to their chapter-subject.  Check & fix.
This commit is contained in:
Markus Armbruster 2005-12-22 12:23:38 +00:00
parent 4ea4a01fd5
commit 2162e37f43
2 changed files with 7 additions and 1 deletions

View file

@ -98,4 +98,4 @@ Any time the Deity helps anyone,
Deity intervention starts becoming a factor in the game. Deity intervention starts becoming a factor in the game.
As a Deity, you absolutely can't go wrong As a Deity, you absolutely can't go wrong
if you do nothing at all except routine game maintenance. if you do nothing at all except routine game maintenance.
.SA "Deity" .SA "Deity, Server"

View file

@ -202,8 +202,10 @@ sub parse_file {
sub parse_see_also { sub parse_see_also {
my ($topic) = @_; my ($topic) = @_;
my @see_also = split(/, /, $see_also{$topic}); my @see_also = split(/, /, $see_also{$topic});
my $wanted = $chapter{$topic};
my $found; # found a subject? my $found; # found a subject?
$wanted = undef if $wanted eq 'Concept' or $wanted eq 'Command';
$filename = "$srcdir/$topic"; $filename = "$srcdir/$topic";
for (@see_also) { for (@see_also) {
@ -211,10 +213,14 @@ sub parse_see_also {
set_subject($_, $topic); set_subject($_, $topic);
$found = 1; $found = 1;
} }
if ($wanted && $_ eq $wanted) {
$wanted = undef;
}
} }
$. = $sanr{$topic}; $. = $sanr{$topic};
error("No subject listed in .SA") unless $found; error("No subject listed in .SA") unless $found;
error("Chapter $wanted not listed in .SA") if $wanted;
} }
# Add a new entry to %subject and possibly to %largest # Add a new entry to %subject and possibly to %largest