cs_table_header_row

one of the documented procedures in this installation of the ACS
Usage:
cs_table_header_row { -color "white" -bgcolor "black" -colspan 2 } columns
What it does:
Generates a table header row, spacing columns with -space if desired.
Defined in: /web/philip/tcl/cs-admin-defs.tcl

Source code:

arg_parser_for_cs_table_header_row $args

    set out "<tr>"
    foreach col $columns {
	append out "<th align=left"
	if { $bgcolor != "" } {
	    append out " bgcolor=$bgcolor"
	}
	if { $colspan != 1 } {
	    append out " colspan=$colspan"
	}
	append out ">"
	if { $color != "" } {
	    append out "<font color=$color>"
	}
	append out "$col&nbsp;&nbsp;&nbsp;</th>"
    }
    append out "</tr>"
    return $out


philg@mit.edu