%# People will do tomorrow what they did today because that is what they %# did yesterday. <& /Work/Elements/104Header, Title => 'My Approvals', Action => '/Work/Approvals/index.html' &> <& /Work/Elements/SelectSearch, Categories => \%Categories, Category => $Category, ButtonURL => ( ($Status eq 'unresolved') and $Tickets->Count ? "Batch.html?Begin=$Begin&Bookmark=$limits" : undef ), ButtonText => loc('Batch Approval'), %ARGS, &> <& /Work/Elements/List, List => $Tickets, Begin => $Begin, URL => '/Work/Approvals/Display.html', ARGS => \%ARGS, Role => 'approver' &> <& /Work/Elements/104Footer &> <%INIT> delete $session{$_} for grep /^Approval-\d+-Owner/, keys %session; $session{'WorkPage'} = '/Work/Approvals/'; $session{'CcSet'} = 0; $m->comp('/Work/Elements/GotoTicket', Type => 'Approvals', GotoTicket => $GotoTicket); my %Categories; my $Tickets = RT::Tickets->new($session{'CurrentUser'}); $m->comp( '/Work/Elements/DoSearch', %ARGS, Tickets => $Tickets, Categories => \%Categories, Owner => $session{'CurrentUser'}->Id, Type => 'approval', ); my $limits = $Tickets->FreezeLimits; HTML::Mason::Escapes::url_escape(\$limits); <%ARGS> $Category => '' $Begin => 0 $Status => 'unresolved' $CreatedBefore => '' $CreatedAfter => '' $Requestor => '' $GotoTicket => 0