fs_selfservice/FS-SelfService/cgi/view_support_details.html

   1 <%= $url = "$selfurl?action="; ''; %>
   2 <%= include('header', 'Usage details') %>
   3
   4 <FONT SIZE=4>Support usage details for
   5 <%= Date::Format::time2str('%b&nbsp;%o&nbsp;%Y', $beginning) %> -
   6 <%= Date::Format::time2str('%b&nbsp;%o&nbsp;%Y', $ending) %>
   7 </FONT><BR><BR>
   8
   9 <%= if ( $error ) {
  10   $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">$error</FONT><BR><BR>!;
  11 } ''; %>
  12
  13 <TABLE WIDTH="100%">
  14   <TR>
  15     <TD WIDTH="50%">
  16 <%= if ($previous < $beginning) {
  17     $OUT .= qq!<A HREF="${url}view_support_details;svcnum=$svcnum;beginning=!;
  18     $OUT .= qq!$previous;ending=$beginning">Previous period</A>!;
  19     }else{
  20       '';
  21     } %>
  22     </TD>
  23     <TD  WIDTH="50%" ALIGN="right">
  24 <%= if ($next > $ending) {
  25     $OUT .= qq!<A HREF="${url}view_support_details;svcnum=$svcnum;beginning=!;
  26     $OUT .= qq!$ending;ending=$next">Next period</A>!;
  27     }else{
  28       '';
  29     }%>
  30     </TD>
  31   </TR>
  32 </TABLE>
  33 <TABLE BGCOLOR="#cccccc">
  34   <TR>
  35     <TH ALIGN="left">Ticket</TH>
  36     <TH ALIGN="center">Subject</TH>
  37     <TH ALIGN="center">Staff</TH>
  38     <TH ALIGN="center">Date</TH>
  39     <TH ALIGN="center">Status</TH>
  40     <TH ALIGN="right">Time</TH>
  41   </TR>
  42 <%= my $total = 0;
  43     foreach my $usage ( @usage ) {
  44   $OUT .= '<TR><TD ALIGN="left">';
  45     $OUT .= $usage->{'ticketid'};
  46     $OUT .= '</TD><TD ALIGN="right">';
  47     $OUT .= $usage->{'subject'};
  48     $OUT .= '</TD><TD ALIGN="right">';
  49     $OUT .= $usage->{'creator'};
  50     $OUT .= '</TD><TD ALIGN="left">';
  51     $OUT .= Date::Format::time2str('%T%P %a&nbsp;%b&nbsp;%o&nbsp;%Y', $usage->{'_date'});
  52     $OUT .= '</TD><TD ALIGN="right">';
  53     $OUT .= $usage->{'status'};
  54     $OUT .= '</TD><TD ALIGN="right">';
  55     my $duration =  $usage->{'support'};
  56     $total += $usage->{'support'};
  57     my $h = int($duration/3600);
  58     my $m = sprintf("%02d", int(($duration % 3600) / 60));
  59     my $s = sprintf("%02d", $duration % 60);
  60     $OUT .=  $usage->{'support'} < 0 ? '-' : '';
  61     $OUT .=  "$h:$m:$s";
  62   $OUT .= '</TD></TR>';
  63   }
  64   my $h = int($total/3600);
  65   my $m = sprintf("%02d", int(($total % 3600) / 60));
  66   my $s = sprintf("%02d", $total % 60);
  67   $OUT .=  qq!<TR><TD COLSPAN="5"></TD><TD ALIGN="right"><HR></TD></TR>!;
  68   $OUT .=  qq!<TR><TD COLSPAN="5"></TD><TD ALIGN="right">$h:$m:$s</TD></TR>!;
  69   %>
  70
  71 </TABLE>
  72 <BR>
  73
  74 <%= include('footer') %>