Fix the generated copyright sections in the HTML help file.

2016-11-02 01:42:49 +00:00
1 changed files with 5 additions and 0 deletions
@@ -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