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 <font color=white> $title </td> </tr>\n" } append column_name_header_row "<tr><td bgcolor=$header_color>$font Name</td> <td bgcolor=$header_color align=left>$font Action </td>" if { $author_p } { append column_name_header_row " <td bgcolor=$header_color align=left>$font Author </td>" } append column_name_header_row " <td bgcolor=$header_color align=right>$font Size </td> <td bgcolor=$header_color>$font Type </td> <td bgcolor=$header_color>$font Modified </td> </tr> " return $column_name_header_row