Posted to tcl by ryan-g2 at Tue Nov 20 16:04:27 GMT 2007view raw

  1. if {[catch {
  2. set division_group_id [application_group::group_id_from_package_id -package_id $division_id]
  3. set house_group_id [application_group::group_id_from_package_id -package_id $house_id]
  4. set room_group_id [application_group::group_id_from_package_id -package_id $room_id]} errmsg]} {
  5. ns_log notice "Error obtaining application group ids for division, house or room. mps::grant__member_permissions faile\
  6. d. $errmsg"
  7. return 0
  8. }
  9.  
  10.