Method code for $root.set_credit()

[Turn off line numbering]

---

  1: arg newcopy;
  2: var x;
  3: 
  4: (> .perms(sender(), 'manager) <);
  5: if (newcopy == 0)
  6:     return (| clear_var('credit) |);
  7: if (type(newcopy) != 'list || find x in (newcopy) where (type(x) != 'string))
  8:     throw(~type, "You must submit a list of strings for the credit.");
  9: credit = newcopy;

---

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