View/Edit #2:www_desc*ription

Switch to edit mode.

Name(s): www_desc*ription
1:  "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: if (w = is_member("*PASS*", www_desc))
12:   if (desc = this:description())
13:     desc = $web:format({@desc})
14:   else
15:     desc = {$msg:msg_no_desc()}
16:   endif
17:   www_desc[w..w] = desc
18: endif
19: return $smilies:subst(www_desc)
20: "Last modified by Dax (#789) on Tue May  3 14:03:24 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.

[home | help | who | search | setup | code]