LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

runon protection, section titles for xref tags

This commit is contained in:
david 2002-01-25 03:31:31 +00:00
parent 7b1b6b467f
commit 5cd66f90b9
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
LDP/txt2db/txt2db.pl
View File

@ -238,6 +238,13 @@ sub proc_txt {
}
}
# runon protection
#
if ($linenumber >= ($noparaline + 100)) {
$buf .= "ERROR: runon block starting on line $noparaline\n";
last;
}
# recover original line -- no whitespace modifiers
#
$line = $originalline;
@ -252,7 +259,7 @@ sub proc_txt {
if ($id eq '') {
$line = "<sect3><title>$title</title>\n";
} else {
$line = "<sect3 id='$id'><title>$title</title>\n";
$line = "<sect3 id='$id'><title id='$id-title'>$title</title>\n";
}
$level3 = 1;
@ -264,7 +271,7 @@ sub proc_txt {
if ($id eq '') {
$line = "<sect2><title>$title</title>\n";
} else {
$line = "<sect2 id='$id'><title>$title</title>\n";
$line = "<sect2 id='$id'><title id='$id-title'>$title</title>\n";
}
$level2 = 1;
@ -276,7 +283,7 @@ sub proc_txt {
if ($id eq '') {
$line = "<sect1><title>$title</title>\n";
} else {
$line = "<sect1 id='$id'><title>$title</title>\n";
$line = "<sect1 id='$id'><title id='$id-title'>$title</title>\n";
}
$level1 = 1;