Commands: Switch to edit mode.
Name(s): _render_page1: "*** DON'T TOUCH THIS CODE *** AUTOMATICALLY GENERATED ***"
2: caller == this || raise(E_PERM)
3: if (prepstr == "/alt")
4: return this:tell_alt_page()
5: endif
6: if (iobj)
7: if ($www:parse_POST("apply"))
8: player.user.www_toolbar = tostr(this, ":tell_www_tail(this)")
9: endif
10: data = {}
11: for datum in (iobj)
12: {name, value} = datum
13: if (length(name) > 4 && name[1..4] in {"name", "link", "alt_"})
14: n = toint(name[5..$])
15: while (length(data) < n)
16: data = {@data, {"", "", ""}}
17: endwhile
18: value = $su:trim(value)
19: if (name[1..4] == "name")
20: data[n][1] = value
21: elseif (name[1..4] == "link")
22: data[n][2] = value
23: else
24: data[n][3] = value
25: endif
26: endif
27: endfor
28: while (data && data[$] == {"", "", ""})
29: data = data[1..$ - 1]
30: endwhile
31: this:_set_data(player.user, data)
32: endif
33: data = this:_get_data(player.user)
34: player:tell("<!DOCTYPE HTML PUBLIC \"", this.www_doctype_fpi, "\" \"", this.www_doctype_uri, "\">")
35: player:tell("<HTML><HEAD>")
36: player:tell(" <TITLE>", $name, ": ", this.name, "</TITLE>")
37: player:tell($html_utils:nav_links(this:www_nav_links()))
38: player:tell({"</HEAD>", ""})
39: player:tell("<BODY ", this.www_body_args, ">")
40: player:tell("<H1>", this.name, "</H1>")
41: player:tell("You may change the links on your personal menu of the DHTML toolbar. Four number signs (####) in a link get replaced with the object's number (1234).")
42: player:tell("<FORM METHOD=\"post\" ACTION=\"/", toint(this), "\">")
43: player:tell({"<TABLE>", "<TR><TH>#</TH><TH>Name</TH><TH>Link</TH><TH>Tooltip (optional)</TH></TR>"})
44: count = 0
45: for datum in ({@data, {"", "", ""}, {"", "", ""}, {"", "", ""}, {"", "", ""}})
46: {name, link, alt} = datum
47: if (name && (name + "__")[1..2] == "__")
48: continue
49: endif
50: count = count + 1
51: player:tell("<TR>")
52: player:tell(" <TD ALIGN=right>", count, "</TD>")
53: player:tell(" <TD>", $html_utils:input_text(tostr("name", count), name, 10), "</TD>")
54: player:tell(" <TD>", $html_utils:input_text(tostr("link", count), link, 20), "</TD>")
55: player:tell(" <TD>", $html_utils:input_text(tostr("alt_", count), alt, 30), "</TD>")
56: player:tell("</TR>")
57: endfor
58: player:tell({"</TABLE>", "<P>"})
59: if (player.user.www_toolbar != tostr(this, ":tell_www_tail(this)"))
60: player:tell({"<INPUT TYPE=\"checkbox\" NAME=\"apply\">", "Make this be your default toolbar.", "<P>"})
61: endif
62: player:tell({"<INPUT TYPE='submit' VALUE='Set Toolbar'>", "</FORM>", "", "<P>The DHTML menu is based on code by <A HREF=\"http://www.likno.com/\">Likno Software</A>. Moo Canada has a licence to use this code.</P>", ""})
63: player:tell("<P><B>< Choose a different ", $www:link($toolbar, "toolbar"), "</B></P>")
64: this:tell_www_tail()
65: player:tell("</BODY></HTML>")
66: "Last modified by Dax (#789) on Tue May 3 14:09:37 2005 MDT."
| Commands: |