@verb #555:"tell_multiple_page" this none this rxdo #60
@program #555:"tell_multiple_page" this none this
"Serves up a page with a list of all matching topics."
"Called from :tell_www_page"
caller == this || raise(E_PERM)
$www.error:OK()
multipage = this._multipage
if (where = "*OPTIONS*" in this._multipage)
  options = {}
  for page in (args[1])
    options = {@options, tostr("<LI><A HREF=\"", $www:fileURL(this, page[1]), "\">", page[2], "</A>")}
  endfor
  multipage[where..where] = options
endif
player:tell(multipage)
"Last modified by Dax (#789) on Fri May 29 15:03:51 1998 EDT."
.