View/Edit #85:table

Switch to edit mode.

Name(s): table
1:  "Takes a list of $ref_db names.  Returns a list ready to be sent to $webber:tellcolumns()"
2:  {refs} = args
3:  base = #0
4:  bases = {}
5:  while (valid(base))
6:    bases = {@bases, {base, tostr("<!--", length(bases), "-->", $find_ref(base) || base)}}
7:    base = parent(base)
8:  endwhile
9:  table = {}
10: for ref in (refs)
11:   host = $has_property(ref)[1]
12:   object = `#0.(ref) ! E_PERM'
13:   if (!valid(object))
14:     continue
15:   endif
16:   if (host == $ref_db)
17:     link = tostr("<A HREF='/", ref, "'>$", ref, "</A>")
18:   else
19:     link = tostr("<A HREF='/", ref, "'><B>$", ref, "</B></A>")
20:   endif
21:   name = object:nn()
22:   type = $code_utils:classify_object(parent(object))
23:   owner = $su:nn(object.owner)
24:   host = listassoc(bases, host)[2]
25:   if (player.user:controls(object))
26:     delete = "<A HREF='javascript:del_ref(\"" + ref + "\");'><IMG SRC='http://files.moo.ca/8/5/x.gif' BORDER=0 HEIGHT=16 WIDTH=15></A>"
27:   else
28:     delete = "&nbsp;"
29:   endif
30:   table = {@table, {link, name, type, owner, host, delete}}
31:   $command_utils:suspend_if_needed()
32: endfor
33: return table
34: "Last modified by Dax (#789) on Sun Jul 28 03:56:25 2002 MDT."

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

You are not logged in.

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