Method code for $root.del_parent()

[Turn on line numbering]

---

arg parent;
var parents;

(> .perms(sender(), 'manager) <);
(> $sys.touch() <);
if (!valid(parent))
    throw(~type, "Not a valid parent, must send a valid object.");
parents = .parents();
if (!(parent in parents))
    throw(~parentnf, parent + " is not a parent of " + this() + ".");
parents = parents.setremove(parent);
(> .change_parents(parents) <);

---

["// Created as a part of ColdCore, see: @help Credit"]