@verb #86:"db_index_www" this none this rxdo #55
@program #86:"db_index_www" this none this
"Format and sort the list of topics for the index page."
x = {"<H2>Topics available from " + $string_utils:nn(this) + "</H2>"}
y = $list_utils:sort(this:topics())
for a in [1..length(y)]
  y[a] = "<TD><A HREF=\"help?" + y[a] + "\">" + y[a] + "</A></TD>" + $string_utils:space(20 - length(y[a])) + (a % 4 ? "" | "</TR><P><TR>")
endfor
y[1] = "<TABLE><TR>" + y[1]
y[$] = y[$] + (index(y[$], "</TR>") ? "" | "</TR>") + "</TABLE>"
return {@x, @y}
"Last modified by Dax (#789) on Wed Jun  2 18:16:43 1999 MDT."
"This verb previously owned by whiz (#3135), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:03 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:03 2002 MDT."
.