rt/docs/design_docs/approval_template

   1 ===Create-Ticket: approval
   2  {  my $name = "HR";
   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);
   7
   8    my $groupid = $groups->First->Id;
   9
  10    my $adminccs = RT::Users->new($RT::SystemUser);
  11    $adminccs->WhoHaveRight(Right => 'AdminGroup', IncludeSystemRights => undef, IncludeSuperusers => 0, IncludeSubgroupMembers => 0, Object => $groups->First);
  12
  13     my @admins;
  14     while (my $admin = $adminccs->Next) {
  15         push (@admins, $admin->Name);
  16     }
  17  }
  18  Queue: ___Approvals
  19  Type: approval
  20  AdminCcs: {join (", ",@admins) }
  21  Depended-On-By: TOP
  22  Refers-To: TOP
  23  Due: {time + 86400}
  24  Content-Type: text/plain
  25  Content: Your approval is requested for the ticket {$Tickets{'TOP'}->Id}: {$Tickets{'TOP'}->Subject}