View/Edit #15:auto_demote

Name(s): auto_demote

1: caller_perms().wizard || raise(E_PERM)
2: {who} = args
3: if (who:isa($mentor))
4:   $building_utils:chparent(who, $prog)
5: endif
6: $mentor:mail_demote(who)
7: "Last modified by MadHatter (#8371) on Sun Nov 24 22:33:31 2002 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.