@verb #2:"www_desc*ription" this none this rxdo #789
@program #2:"www_desc*ription" this none this
"Returns the text for the HTML page of that object."
"Guarantee that it is a list."
www_desc = {}
base = $www:fileURL(this, "")[1..$ - 1]
counter = $su:group_number(this.www_counter)
for line in (typeof(this.www_desc) == $STR ? {this.www_desc} | this.www_desc)
  www_desc = {@www_desc, strsub(strsub(line, "*COUNTER*", counter, 1), "*THIS*", base, 1)}
endfor
$command_utils:suspend_if_needed()
www_desc = $msg:substitute(www_desc)
if (w = is_member("*PASS*", www_desc))
  if (desc = this:description())
    desc = $web:format({@desc})
  else
    desc = {$msg:msg_no_desc()}
  endif
  www_desc[w..w] = desc
endif
return $smilies:subst(www_desc)
"Last modified by Dax (#789) on Tue May  3 14:03:24 2005 MDT."
.