<%INIT> my $InfoQueue = RT::Queue->new($QueueObj->CurrentUser); $InfoQueue->Load("ProjectDownloaders"); my $CFs = $InfoQueue->CustomFields; if ($UpdateACL) { my (%ACL, @Info); foreach my $key (sort keys %ARGS) { if ($key =~ /^SetACL-(.+)-(.+)$/) { push @{ $ACL{$1} }, $2; } elsif ($key =~ /^SetDownload-info-(.+)$/) { $QueueObj->SetDownloadACL("info-$1" => $ARGS{$key}); push @Info, $1 unless $ARGS{$key} eq 'hidden'; } } while (my ($user, $acl) = each %ACL) { $QueueObj->SetAttribute("ACL-member-$user" => "@$acl"); } $QueueObj->SetDownloadACL(role => $ARGS{"SetDownload-role"}); $QueueObj->SetDownloadACL(info => "@Info"); } %INIT> <%ARGS> $QueueObj $UpdateACL => 0 %ARGS>