Key Generation

% if($session{'CurrentUser'}->UserObj->Privileged()){ % }
User ID
Key Description
Group ID
Data Type
Write Access
<& /Elements/Submit, Name => 'GenerateKey', Label => loc('Generate Key') &>
<%INIT> my @sorted = sort { $groups{$a} <=> $groups{$b} } keys(%groups); my @guid = map { CIF::Utils::genSourceUUID($_) } @sorted; <%ARGS> $GenerateKey => undef $key_description => undef @results => undef %groups