<& Elements/Tabs &>

<&|/l,$session{'CurrentUser'}->UserObj->Name&>Journal of [_1]

%while( my $post = $tix->Next) { % my $my_category = $post->FirstCustomFieldValue('RT::Journal-Category'); <%$post->CreatedObj->AsString%>

<%$post->Transactions->First->Subject|| loc('Untitled')%>

% my $content = $post->Transactions->First->Content; % $content =~ s/^-- (.*)$//gism; # kill all signatures % $content =~ s/\n/
/gi; <%$content|n%> % my $refto = $post->RefersTo;
% while( my $link = $refto->Next ) { <%$link->TargetURI->Resolver->HREF%>
% }
% my $comments = $post->Transactions; % $comments->Limit(FIELD => 'Type', VALUE => 'Correspond'); [<&|/l,$comments->Count&>[_1] Comments] <%$my_category%>
% } <&|/l&>Next page | % if ($first > 1) { <&|/l&>Previous page | % } <%INIT> my $q = RT::Queue->new($RT::SystemUser); $q->Load($RT::JournalQueue); my $cat = RT::CustomField->new($RT::SystemUser); $cat->LoadByNameAndQueue( Name => 'RT::Journal-Category', Queue => $q->Id ); my $tix = RT::Tickets->new( $session{'CurrentUser'} ); $tix->LimitQueue( VALUE => $RT::JournalQueue ); $tix->OrderBy( FIELD => 'Created', ORDER => 'DESC' ); if ($user) { $tix->LimitOwner( VALUE => $user ); } if ($category) { $tix->LimitCustomField( CUSTOMFIELD => $cat->Id, OPERATOR => 'LIKE', VALUE => $category . "%" ); } $tix->RowsPerPage($count); $tix->FirstRow($first); <%ARGS> $user => undef $first => 1 $category => undef $show => 'article' $count => 25