diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-04 11:50:22 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-04 11:50:22 (GMT) |
commit | b48d11bb4ce7931c2ee17f9a51be8c232d306f10 (patch) | |
tree | a8f959a9e360dd211345ba9fc2c50ca8b30f9c48 /tools | |
parent | 0f21498784cb704ce6098fcc71b786e422fb2b8d (diff) | |
parent | b9a27c7e1b9c334d15b042404b291c62708bf44a (diff) | |
download | tcl-b48d11bb4ce7931c2ee17f9a51be8c232d306f10.zip tcl-b48d11bb4ce7931c2ee17f9a51be8c232d306f10.tar.gz tcl-b48d11bb4ce7931c2ee17f9a51be8c232d306f10.tar.bz2 |
Fix the generated copyright sections in the HTML help file.
Diffstat (limited to 'tools')
-rw-r--r-- | tools/tcltk-man2html-utils.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tools/tcltk-man2html-utils.tcl b/tools/tcltk-man2html-utils.tcl index 8fd1245..9052049 100644 --- a/tools/tcltk-man2html-utils.tcl +++ b/tools/tcltk-man2html-utils.tcl @@ -57,9 +57,14 @@ proc copyright {copyright {level {}}} { } proc copyout {copyrights {level {}}} { + set count 0 set out "<div class=\"copy\">" foreach c $copyrights { + if {$count > 0} { + append out <BR> + } append out "[copyright $c $level]\n" + incr count } append out "</div>" return $out |