392
@verb #4:"_set_students" this none this rxd #55
@program #4:"_set_students" this none this
if (!caller_perms().wizard)
  raise(E_PERM)
endif
{newstuds} = args
for x in (newstuds)
  $command_utils:suspend_if_needed()
  typeof(x) == $OBJ && x:isa($accountable) || raise(E_INVARG)
endfor
for x in (newstuds)
  x.teachers = setadd(x.teachers, this)
endfor
for x in (this.students)
  $command_utils:suspend_if_needed()
  if (!(x in newstuds))
    try
      x.teachers = setremove(x.teachers, this)
    except (E_PROPNF)
      "Someone chparented() them away, and broke stuff :-P"
    endtry
  endif
endfor
return this.students = newstuds
"Last modified by Lao-Tzu (#8084) on Fri Apr  9 17:31:10 1999 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Tue May  3 13:49:38 2005 MDT."
.

0