36d
@verb #51:"new_session" this none this rxdo #55
@program #51:"new_session" this none this
"WIZARDLY"
if (caller != this)
  raise(E_PERM)
endif
who_obj = args[1]
from = args[2]
if ($object_utils:isa(from, $editor))
  "... never put an editor in .original, ..."
  if (w = who_obj in from.active)
    from = from.original[w]
  else
    from = #-1
  endif
endif
if (caller != this && !caller_perms().wizard)
  return E_PERM
elseif (who = (who_obj = args[1]) in this.active)
  "... edit in progress here..."
  if (valid(from))
    this.original[who] = from
  endif
  return -1
else
  for p in ({{"active", who_obj}, {"original", valid(from) ? from | $nothing}, {"times", time()}, @this.stateprops})
    this.(p[1]) = {@this.(p[1]), p[2]}
  endfor
  return length(this.active)
endif
"Last modified by Cecil (#7407) on Wed Feb 12 19:16:33 2003 MST."
.

0