1 ===Create-Ticket: approval
3 my $groups = RT::Groups->new($RT::SystemUser);
4 $groups->LimitToUserDefinedGroups();
5 $groups->Limit(FIELD => 'Name', OPERATOR => '=', VALUE => "$name");
6 $groups->WithMember($TransactionObj->CreatorObj->Id);
8 my $groupid = $groups->First->Id;
10 my $adminccs = RT::Users->new($RT::SystemUser);
11 $adminccs->WhoHaveRight(Right => 'AdminGroup', IncludeSystemRights => undef, IncludeSuperusers => 0, IncludeSubgroupMembers => 0, Object => $groups->First);
14 while (my $admin = $adminccs->Next) {
15 push (@admins, $admin->Name);
20 AdminCcs: {join (", ",@admins) }
21 Depended-On-By: {$tickets{'TOP'}->Id}
22 Refers-To: {$tickets{'TOP'}->Id}
24 Content-Type: text/plain
25 Content: Your approval is requested for the ticket {%$tickets{'TOP'}->Id}: {$tickets{'TOP'}->Subject}