View/Edit #8327:altsubmenu

Switch to edit mode.

1:  "Create one alternative menu."
2:  {header, object, items} = args
3:  text = {tostr("<A NAME=\"", header, "\"></A><DT><B>", header, "</B></DT>")}
4:  for item in (items)
5:    {name, link, title} = item
6:    link = strsub(link, "####", tostr(toint(caller)))
7:    text = {@text, tostr("<DD><A HREF=\"", link, "\">", name, " -- ", title, "</DD>")}
8:  endfor
9:  return text
10: "Last modified by Dax (#789) on Tue May  3 14:11:59 2005 MDT."

Commands: