Switch to edit mode.
Name(s): www_desc*ription1: "Returns the text for the HTML page of that object."
2: "Guarantee that it is a list."
3: www_desc = {}
4: base = $www:fileURL(this, "")[1..$ - 1]
5: counter = $su:group_number(this.www_counter)
6: for line in (typeof(this.www_desc) == $STR ? {this.www_desc} | this.www_desc)
7: www_desc = {@www_desc, strsub(strsub(line, "*COUNTER*", counter, 1), "*THIS*", base, 1)}
8: endfor
9: $command_utils:suspend_if_needed()
10: www_desc = $msg:substitute(www_desc)
11: desc = {"<table cellpadding=\"2\" cellspacing=\"1\" border=\"1\">", "<tbody>", "<tr>", "<td valign=\"top\" bgcolor=\"#000000\"><font color=\"#c0c0c0\"><tt><pre>"}
12: for x in (this:description())
13: desc = {@desc, x}
14: endfor
15: desc = {@desc, "</font></tt></pre></td>", "</tr>", "</tbody>", "</table>"}
16: www_desc = {@www_desc, @desc}
17: if (w = is_member("*PASS*", www_desc))
18: www_desc[w..w] = {}
19: endif
20: return #308:subst(www_desc)
21: "Last modified by Dax (#789) on Tue May 3 14:03:28 2005 MDT."