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

updated

This commit is contained in:
gferg 2001-11-27 15:13:20 +00:00
parent cb7331efea
commit daa546ffb3
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LDP/builder/ldp_print/VERSION
View File

@ -1 +1 @@
0.4, 2001-10-12
0.5, 2001-11-27

6
LDP/builder/ldp_print/fix_print_html.lib
View File

@ -12,6 +12,7 @@
# 03Apr2001 - 0.2 - fix for <preface>
# 05Jul2001 - 0.3 - fix for <tt> and -f
# 12Oct2001 - 0.4 - fix for sections; loop thru both files (body/title)
# 27Nov2001 - 0.5 - fixed bug in determining where doc-index lies
#
sub fix_print_html {
@ -116,6 +117,7 @@ sub fix_html {
my($buf, $is_article) = @_;
my($indx) = -1;
# make corrections and write out the file
#
@ -128,10 +130,10 @@ sub fix_html {
}
$$buf =~ s/<H1(\nCLASS="INDEXDIV"\n)(.*?)<\/H1/<H2$1$2<\/H2/gims;
if( ($indx = rindex($$buf, "<H1\n><A\nNAME=\"DOC-INDEX\"")) > -1 ) {
$$buf = substr($buf, 0, $indx);
$$buf = substr($$buf, 0, $indx);
$$buf .= "\n<\/BODY>\n<\/HTML>\n\n";
} elsif( ($indx = rindex($$buf, "<H1\n><A\nNAME=\"doc-index\"")) > -1 ) {
$$buf = substr($buf, 0, $indx);
$$buf = substr($$buf, 0, $indx);
$$buf .= "\n<\/BODY>\n<\/HTML>\n\n";
}
$$buf =~ s/\&\#13;//g;