Method code for $root.set_credit()

[Turn on line numbering]

---

arg newcopy;
var x;

(> .perms(sender(), 'manager) <);
if (newcopy == 0)
    return (| clear_var('credit) |);
if (type(newcopy) != 'list || find x in (newcopy) where (type(x) != 'string))
    throw(~type, "You must submit a list of strings for the credit.");
credit = newcopy;

---

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