Description:
<%if (iobj) if ($www:parse_POST("apply")) player.user.www_toolbar = tostr(this, ":tell_www_tail(this)"); endif data = {}; for datum in (iobj) {name, value} = datum; if (length(name) > 4 && name[1..4] in {"name", "link"}) n = toint(name[5..$]); while (length(data) < n) data = {@data, {"", ""}}; endwhile value = $su:trim(value); if (name[1..4] == "name") data[n][1] = value; else data[n][2] = value; endif endif endfor while (data && data[$] == {"", ""}) data = data[1..$-1]; endwhile colour = $www:parse_POST("colour") || "red"; alt = $www:parse_POST("alt") || ""; data = {{"__colour", colour}, {"__alt", alt}, @data}; this:_set_data(player.user, data);endifdata = this:_get_data(player.user);alt = listassoc("__alt", data) || {"_alt", ""};alt = alt[2];colour = listassoc("__colour", data) || {"__colour", "red"};colour = colour[2];%><!DOCTYPE HTML PUBLIC "<%=this.www_doctype_fpi%>" "<%=this.www_doctype_uri%>"><HTML><HEAD> <TITLE><%=$name%>: <%=this.name%></TITLE><%=$html_utils:nav_links(this:www_nav_links())%></HEAD><BODY <%=this.www_body_args%>><H1><%=this.name%></H1>You may change the buttons on the graphical toolbar. Four number signs (####) in a link get replaced with the object's number (1234).<FORM METHOD="post" ACTION="/<%=toint(this)%>"><TABLE><TR><TH>#</TH><TH>Name</TH><TH>Link</TH></TR><%count = 0;for datum in ({@data, {"", ""}, {"", ""}, {"", ""}, {"", ""}, {"", ""}}) {name, link} = datum; if (name && (name+"__")[1..2] == "__") continue; endif count = count + 1;%><TR> <TD ALIGN=right><%=count%></TD> <TD><%=$html_utils:input_text(tostr("name", count), name, 10)%></TD> <TD><%=$html_utils:input_text(tostr("link", count), link, 20)%></TD></TR><% endfor %></TABLE><P><TABLE><TR><TD>Background: <%=$html_utils:input_select("colour", {"red", "green", "blue"}, colour)%></TD><TD ALIGN="center"><IMG SRC="http://dr.moo.ca/MC_menu/RED_red.jpg" HEIGHT=19 WIDTH=81 ALT="[Red]"><IMG SRC="http://dr.moo.ca/MC_menu/GREEN_green.jpg" HEIGHT=19 WIDTH=81 ALT="[Green]"><IMG SRC="http://dr.moo.ca/MC_menu/BLUE_blue.jpg" HEIGHT=19 WIDTH=81 ALT="[Blue]"></TD></TR><TR><TD>Alt text: <%=$html_utils:input_checkbox("alt", "on", alt)%></TD><TD ALIGN="center">[ <U>red</U> | <U>green</U> | <U>blue</U> ]</TD></TR></TABLE><P><%if (player.user.www_toolbar != tostr(this, ":tell_www_tail(this)"))%><INPUT TYPE="checkbox" NAME="apply">Make this be your default toolbar.<P><%endif%><INPUT TYPE='submit' VALUE='Set Toolbar'></FORM><P>The graphical buttons are <A HREF="http://dr.moo.ca/MC-menu/">created automatically</A> by the Digital Routes server.</P><P><B>< Choose a different <%=$www:link($toolbar, "toolbar")%></B></P><% this:tell_www_tail(); %></BODY></HTML><!-- Last modified by Dax (#789) on Sat Aug 16 13:31:08 2003 MDT. --> |
