<%
set dir [file dirname [ns_url2file [ns_conn url]]]
foreach {title section} [list "Programs" 1 "Tcl Commands" n "Library Routines" 3] {
ns_adp_puts "$title
"
ns_adp_puts
set n 0
set ncols 3
foreach file [lsort [glob -nocomplain $dir/*.$section.htm]] {
if !$n {
ns_adp_puts
}
set link [file tail $file]
set page [file rootname [file rootname $link]]
ns_adp_puts "$page
| "
if {[incr n] == $ncols} {
ns_adp_puts
set n 0
}
}
ns_adp_puts
}
%>