%# Law of Probable Dispersal: %# Whatever it is that hits the fan will not be evenly distributed. <& /Work/Elements/104Header, Title => 'My Approvals', Method => 'POST', Action => 'Update.html' &> % while (my $Approval = $List->Next) { <& /Work/Approvals/Elements/ShowApproval, Approval => $Approval, ShowActions => 0, ReadOnly => 0 &>
% } <& /Work/Approvals/Elements/Actions, Submit => 1 &> % my $CurList = $List->ItemsArrayRef || []; % $List = [ ((undef) x $Begin ), @$CurList, ((undef) x ($Count - @$CurList - $Begin )) ]; <& /Edit/Elements/Page, Size => $Size, List => $List, Begin => $Begin, ARGS => \%ARGS &> <%INIT> my $Size = 14; my $List = RT::Tickets->new($session{CurrentUser}); $List->ThawLimits($Bookmark) if $Bookmark; $List->OrderBy(FIELD => 'Id', ORDER => 'DESC'); my $Count = $List->Count; $List->FirstRow($Begin + 1); $List->RowsPerPage($Size); <%ARGS> $Begin => 0 $Bookmark => undef