summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-11-04 11:51:22 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-11-04 11:51:22 (GMT)
commitcd20c7f1264dbe0f5a4534dbe5e0e577b6866d57 (patch)
tree19e3b032fa4e4bbbf56171938193326bb3394fe8
parent179ed8faa4d8ab47fdb8ae6701308b73f8ce440b (diff)
parentb48d11bb4ce7931c2ee17f9a51be8c232d306f10 (diff)
downloadtcl-cd20c7f1264dbe0f5a4534dbe5e0e577b6866d57.zip
tcl-cd20c7f1264dbe0f5a4534dbe5e0e577b6866d57.tar.gz
tcl-cd20c7f1264dbe0f5a4534dbe5e0e577b6866d57.tar.bz2
Fix the generated copyright sections in the HTML help file
-rw-r--r--tools/tcltk-man2html-utils.tcl5
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