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