@verb #3:"tell_www_setup" this none this rxdo #789
@program #3:"tell_www_setup" this none this
"Prints a form allowing web-based setup of this object."
"This verb handles basic setup (name/location/parent/desc)."
"Override to add more functionality.  Don't forget to pass."
caller == this || raise(E_PERM)
player:isa($webber) || raise(E_PERM)
pass(@args)
player:tell("<HR><H3>Physical setup.</H3>")
player:tell("<FORM ACTION=\"/", $www:find_ref(this), "/setup\" METHOD=\"post\"><INPUT TYPE=\"hidden\" NAME=\"physicalsetup\" VALUE=\"on\">")
if (player.user:controls(this))
  player:tell("<B>Anchor:</B> &nbsp; <INPUT TYPE=\"text\" NAME=\"anchor\" SIZE=30 VALUE=\"", this.anchor == $nothing ? "" | $html_utils:literal_text($su:nn(this.anchor)), "\"><BR>")
  player:tell("<B>Key/lock:</B> <INPUT TYPE=\"text\" NAME=\"key\" SIZE=60 VALUE=\"", $html_utils:literal_text($lock_utils:unparse_key_code(this.key)), "\"><BR>")
  key = $html_utils:literal_text($lock_utils:unparse_key_english(this.key))
  player:tell("<I>", this:titlec(), " is currently ", key ? "locked with " + key | "unlocked", ".</I><BR>")
  player:tell("<INPUT TYPE=\"submit\" VALUE=\"Change\"> <INPUT TYPE=\"reset\">")
else
  player:tell("<B>Anchor:</B> ", this.anchor == $nothing ? "<I>unanchored</I>" | $web:link(this.anchor, $su:nn(this.anchor)), "<BR>")
  player:tell("<B>Key/lock:</B> <I>unreadable</I><BR>")
endif
player:tell("</FORM>")
"Last modified by Dax (#789) on Tue May  3 13:18:36 2005 MDT."
.