From b9a27c7e1b9c334d15b042404b291c62708bf44a Mon Sep 17 00:00:00 2001 From: Joe Mistachkin Date: Wed, 2 Nov 2016 01:42:49 +0000 Subject: Fix the generated copyright sections in the HTML help file. --- tools/tcltk-man2html-utils.tcl | 5 +++++ 1 file changed, 5 insertions(+) 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 "
" foreach c $copyrights { + if {$count > 0} { + append out
+ } append out "[copyright $c $level]\n" + incr count } append out "
" return $out -- cgit v0.12