fs_header_row_for_files

one of the documented procedures in this installation of the ACS
Usage:
fs_header_row_for_files { -title {} -author_p 0 }
What it does:
Returns a table header row containing column names appropriate for a listing of files alone (i.e., not versions of files). Name, Size, Type, Modified. If you set author_p to 1, you'll additionally get an author column.
Defined in: /web/philip/tcl/file-storage-defs.tcl

Source code: 

arg_parser_for_fs_header_row_for_files $args

    set colspan 5
    if { $author_p } {
	incr colspan
    }

    set font "<nobr>[ad_parameter FileInfoDisplayFontTag fs]"
    set header_color [ad_parameter HeaderColor fs]
    if { ![empty_string_p $title] } {
	append column_name_header_row "<tr><td colspan=$colspan bgcolor=#666666>
              $font &nbsp;<font color=white> $title
              </td>
          </tr>\n"
    }
    append column_name_header_row  "<tr><td bgcolor=$header_color>$font &nbsp; Name</td>
          <td bgcolor=$header_color align=left>$font &nbsp; Action &nbsp;</td>"
    if { $author_p } {
	append column_name_header_row "
          <td bgcolor=$header_color align=left>$font &nbsp; Author &nbsp;</td>"
    }
    append column_name_header_row "
          <td bgcolor=$header_color align=right>$font &nbsp; Size &nbsp;</td>
          <td bgcolor=$header_color>$font &nbsp; Type &nbsp;</td>
          <td bgcolor=$header_color>$font &nbsp; Modified &nbsp;</td>
      </tr>
    "
    return $column_name_header_row
philg@mit.edu