%# A well adjusted person is one who makes the same mistake twice without %# getting nervous.
<& /Edit/Elements/MetaHeaders &><% $body |n %>
% $m->abort; <%INIT> my $UserObj = RT::User->new($RT::SystemUser); if ($name) { $UserObj->Load($name); } elsif ($id or $no) { $UserObj->LoadByCol( ExternalAuthId => ($id || RT::User->no_to_id($no)) ); } else { $UserObj->Load($session{'CurrentUser'}->Id); } if($no){ $ProType = "asp" } my $Tickets = RT::Tickets->new($RT::SystemUser); $m->comp( '/Work/Elements/DoSearch', %ARGS, Tickets => $Tickets, Owner => $UserObj->Id, Type => 'approval', ); require LWP::Simple; my $body = LWP::Simple::get($portal_root."index/CountWF.$ProType?cout=".$Tickets->Count); $body =~ s{.*}{}is; $body =~ s{.*}{}is; <%ARGS> $no => '' $id => '' $name => '' $portal_root => '' $ProType => "asp"