[rt-users] Manager's homepage

[Stephen Gower]

On Wed, Apr 24, 2002 at 06:12:00PM +0200, Harald Wagener wrote:
> 
> This is nice, but You forgot t include Elements/YourTickets...

  So I have.  That's becasue I was going to clean it up
  before I submited it.  Really, I should use a modified version of
  MyTickets, which if it doesn't have a User variable passed to it,
  works just the same way as the current MyTickets, and if it does,
  works like YourTickets.  I should also remove all the
  colour stuff before I send this, but it's after 5pm and I
  should have gone home!
  
  s
-------------- next part --------------
<& /Elements/TitleBoxStart, title => $User->RealName &>
<TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH=100%>
<TR>
<TH ALIGN=RIGHT>#
</TH>
<TH ALIGN=LEFT>Subject</TH>
<TH ALIGN=LEFT>Queue</TH>
<TH ALIGN=LEFT>Status</TH>
<TH ALIGN=LEFT>Priority</TH>
<TH ALIGN=LEFT> </TH>
</TR>
% while (my $Ticket = $MyTickets->Next) {
<TR
% if ($Ticket->Priority >=90) {
bgcolor="#ff6633"
% }
% elsif ($Ticket->Priority >=80) {
bgcolor="#ff9933"
% }
% elsif ($Ticket->Priority >=70) {
bgcolor="#ffff66"
% }
>
<TD ALIGN=RIGHT>
<%$Ticket->Id%>
</TD>
<TD
>
<A HREF="<% $RT::WebPath %>/Ticket/Display.html?id=<%$Ticket->Id%>">
<%$Ticket->Subject || '[no subject]'%>
</A>
</TD>
<TD>
<%$Ticket->QueueObj->Name%>
</TD><TD>
<%$Ticket->Status%>
</TD><TD>
<%$Ticket->Priority%>
</TD>
<TD ALIGN=RIGHT>
[<A HREF="<% $RT::WebPath %>/Ticket/Update.html?id=<%$Ticket->Id%>">Update</A>]
</TD>
</TR>
% }
</TABLE>
<& /Elements/TitleBoxEnd &>


<%INIT>
my $MyTickets;
$MyTickets = new RT::Tickets ($session{'CurrentUser'});
$MyTickets->LimitOwner(VALUE => $User->Id);
$MyTickets->LimitStatus(VALUE => "open");
$MyTickets->LimitStatus(VALUE => "new");
$MyTickets->OrderBy(FIELD => 'Priority', ORDER => 'DESC');
$MyTickets->RowsPerPage(25);

</%INIT>

<%ARGS>
$User => "none"
</%ARGS>