fs_selfservice/FS-SelfService/cgi/ticket_summary.html

   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>
   4 <TR>
   5 <%=
   6 my $col1 = "ffffff";
   7 my $col2 = "dddddd";
   8 my $col = $col1;
   9
  10 my $can_set_priority =
  11   grep { exists($_->{'_selfservice_priority'}) } @tickets;
  12 if ( $can_set_priority ) {
  13
  14   $OUT .= qq!<FORM ACTION="$selfurl" METHOD="POST">! .
  15           qq!<INPUT TYPE="hidden" NAME="session" VALUE="$session_id">! .
  16           qq!<INPUT TYPE="hidden" NAME="action" VALUE="ticket_priority">!;
  17 }
  18 $date_format ||= '%Y-%m-%d';
  19 my $date_formatter = sub {
  20   my $time = Date::Parse::str2time($_[0], 'GMT'); # RT internal dates are GMT
  21   # exclude times within 24 hours of zero
  22   ($time > 86400) ? Date::Format::time2str($date_format, $time) : ''
  23 };
  24
  25 my @titles = ('#', qw(Subject Queue Status Created Due));
  26 push @titles, 'Estimated<BR>Hours';
  27 push @titles, 'Priority';
  28
  29 $OUT .= join("\n", map { "<TH VALIGN=\"top\">$_</TH><TH>&nbsp;</TH>" } @titles)
  30       . '</TR>';
  31
  32 foreach my $ticket ( @tickets ) {
  33   my $id = $ticket->{'id'};
  34   my $td = qq!<TD BGCOLOR="#$col">!;
  35   my $space = $td.'&nbsp;</TD>';
  36   my $link = qq!<A HREF="${url}tktview;ticket_id=$id">!;
  37   $OUT .= '<TR>' .
  38 $td. $link . $id . '</A></TD>'. $space .
  39 $td. $link . $ticket->{'subject'} . '</A></TD>'. $space .
  40 $td. $ticket->{'queue'} . '</TD>'. $space .
  41 $td. $ticket->{'status'} . '</TD>'. $space .
  42 $td. $date_formatter->($ticket->{'created'}) . '</TD>'. $space .
  43 $td. $date_formatter->($ticket->{'due'}) . '</TD>'. $space .
  44 qq!<TD BGCOLOR="#$col" ALIGN="right">!.
  45   ($ticket->{'timeestimated'} ?
  46     sprintf('%.1f', $ticket->{'timeestimated'} / 60.0) # .1f?
  47   : ''
  48   ) .  '</TD>'. $space .
  49 qq!<TD BGCOLOR="#$col" ALIGN="right">!;
  50   if ( $can_set_priority ) {
  51     $OUT .= '<INPUT TYPE="hidden" NAME="ticket'.$id.'" VALUE="1">' .
  52             '<INPUT TYPE="text" SIZE=4 NAME="priority'.$id.'"' .
  53             'VALUE="'.$ticket->{'_selfservice_priority'}.'"></TD>';
  54     if ( exists($ticket_error{$id}) ) {
  55       # display error message compactly
  56       $OUT .= '<TD><FONT COLOR="#ff0000" onmouseover="'.
  57               "return overlib('".$ticket_error{$id}."', AUTOSTATUS, WRAP);" .
  58               '" onmouseout="nd();">*</FONT></TD>';
  59     }
  60   }
  61   else {
  62     $OUT .= ($ticket->{'content'} || $ticket->{'priority'}) . '</TD>';
  63   }
  64   $OUT .= '</TR>';
  65   $col = $col eq $col1 ? $col2 : $col1;
  66 } #foreach my $ticket
  67 if ( $can_set_priority ) {
  68   $OUT .= '<TR><TD COLSPAN=15 ALIGN="right">
  69 <INPUT TYPE="submit" VALUE="Save changes"></TD></TR></FORM>';
  70 }
  71 %>
  72 </TABLE>