1 <SCRIPT TYPE="text/javascript" SRC="overlibmws.js"></SCRIPT>
2 <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#eeeeee">
3 <TR><TH BGCOLOR="#ff6666" COLSPAN=15>Open Tickets</TH></TR>
10 my $can_set_priority =
11 grep { exists($_->{'_selfservice_priority'}) } @tickets;
12 if ( $can_set_priority ) {
15 ($b->{'_selfservice_priority'} || 0) <=>
16 ($a->{'_selfservice_priority'} || 0)
19 $OUT .= qq!<FORM ACTION="$selfurl" METHOD="POST">! .
20 qq!<INPUT TYPE="hidden" NAME="session" VALUE="$session_id">! .
21 qq!<INPUT TYPE="hidden" NAME="action" VALUE="ticket_priority">!;
23 $date_format ||= '%Y-%m-%d';
24 my $date_formatter = sub {
25 my $time = Date::Parse::str2time($_[0], 'GMT'); # RT internal dates are GMT
26 # exclude times within 24 hours of zero
27 ($time > 86400) ? Date::Format::time2str($date_format, $time) : ''
30 my @titles = ('#', qw(Subject Queue Status Created Due));
31 push @titles, 'Estimated<BR>Minutes';
32 push @titles, 'Priority';
34 $OUT .= join("\n", map { "<TH VALIGN=\"top\">$_</TH><TH> </TH>" } @titles)
37 foreach my $ticket ( @tickets ) {
38 my $id = $ticket->{'id'};
39 my $td = qq!<TD BGCOLOR="#$col">!;
40 my $space = $td.' </TD>';
41 my $link = qq!<A HREF="${url}tktview;ticket_id=$id">!;
43 $td. $link . $id . '</A></TD>'. $space .
44 $td. $link . $ticket->{'subject'} . '</A></TD>'. $space .
45 $td. $ticket->{'queue'} . '</TD>'. $space .
46 $td. $ticket->{'status'} . '</TD>'. $space .
47 $td. $date_formatter->($ticket->{'created'}) . '</TD>'. $space .
48 $td. $date_formatter->($ticket->{'due'}) . '</TD>'. $space .
49 qq!<TD BGCOLOR="#$col" ALIGN="right">!. ($ticket->{'timeestimated'} || '')
51 qq!<TD BGCOLOR="#$col" ALIGN="right">!;
52 if ( $can_set_priority ) {
53 $OUT .= '<INPUT TYPE="hidden" NAME="ticket'.$id.'" VALUE="1">' .
54 '<INPUT TYPE="text" SIZE=4 NAME="priority'.$id.'"' .
55 'VALUE="'.$ticket->{'_selfservice_priority'}.'"></TD>';
56 if ( exists($ticket_error{$id}) ) {
57 # display error message compactly
58 $OUT .= '<TD><FONT COLOR="#ff0000" onmouseover="'.
59 "return overlib('".$ticket_error{$id}."', AUTOSTATUS, WRAP);" .
60 '" onmouseout="nd();">*</FONT></TD>';
64 $OUT .= ($ticket->{'content'} || $ticket->{'priority'}) . '</TD>';
67 $col = $col eq $col1 ? $col2 : $col1;
69 if ( $can_set_priority ) {
70 $OUT .= '<TR><TD COLSPAN=15 ALIGN="right">
71 <INPUT TYPE="submit" VALUE="Save changes"></TD></TR></FORM>';