diff options
| author | psyc://loupsycedyglgamf.onion/~lynX <ircs://psyced.org/youbroketheinternet> | 1984-04-04 00:44:12 +0000 |
|---|---|---|
| committer | psyc://loupsycedyglgamf.onion/~lynX <ircs://psyced.org/youbroketheinternet> | 1984-04-04 00:44:12 +0000 |
| commit | 772242f1d8674f7e2949907b0b1810ff19cd0e2e (patch) | |
| tree | cf1fdeb964bcbb891fa4e3c5b5f23872e6d6380c | |
| parent | 95d350614aa717e35388a7a6d1463fe8f6cf6c4e (diff) | |
| download | prep-772242f1d8674f7e2949907b0b1810ff19cd0e2e.tar.gz prep-772242f1d8674f7e2949907b0b1810ff19cd0e2e.zip | |
util: allow points without sections
| -rw-r--r-- | lib/prep/html/util.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/prep/html/util.pl b/lib/prep/html/util.pl index 36a692a..6b89b1b 100644 --- a/lib/prep/html/util.pl +++ b/lib/prep/html/util.pl | |||
| @@ -55,7 +55,8 @@ sub do_point { | |||
| 55 | my $text = shift; | 55 | my $text = shift; |
| 56 | die "Runaway list detected" if $LIST; | 56 | die "Runaway list detected" if $LIST; |
| 57 | $POINT++; | 57 | $POINT++; |
| 58 | my $s = $CHAPTER ? "$CHAPTER.$SECTION.$POINT" : "$SECTION.$POINT"; | 58 | my $s = $CHAPTER ? "$CHAPTER.$SECTION.$POINT" |
| 59 | : $SECTION ? "$SECTION.$POINT" : $POINT; | ||
| 59 | my $a = $VAR{pointcontinued} ? "a$POINT" : $s; | 60 | my $a = $VAR{pointcontinued} ? "a$POINT" : $s; |
| 60 | push @index, <<X if $text; | 61 | push @index, <<X if $text; |
| 61 | <b>$s</b> <a href="#$a">$text</a> | 62 | <b>$s</b> <a href="#$a">$text</a> |