% my $News = $QueueObj->FunctionItems('News'); % if ($News->Count) {
% while (my $Item = $News->Next) { % }

<&|/l&>Existing news items

<% $Item->Subject %> (<% $Item->CreatedObj->AsString =~ /(^\S+)/g %>) <& /Edit/Elements/Button, Name => "DeleteItem-".$Item->Id, Image => "funcDelete", Text => "Delete" &>

% }

<&|/l&>Post a news item

<& /Work/Tickets/Create.html, Queue => 'ProjectNews', NoUI => 1, NoCF => { Attachments => 1 } &>
<%INIT> if ($id eq 'new') { $QueueObj->CreateFunctionItem(News => \%ARGS); } else { foreach my $key (sort keys %ARGS) { $key =~ /^DeleteItem-(\d+)(?:\.x)?$/ or next; my $Item = $QueueObj->LoadFunctionItem(News => $1) or next; $Item->Delete; } } <%ARGS> $QueueObj $id => undef