1 <HTML><HEAD><TITLE>MyAccount</TITLE></HEAD>
2 <BODY BGCOLOR="#eeeeee"><FONT SIZE=5>MyAccount</FONT><BR><BR>
3 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
4 <%= include('myaccount_menu') %>
7 <FONT SIZE=4>Support usage details for
8 <%= Date::Format::time2str('%b %o %Y', $beginning) %> -
9 <%= Date::Format::time2str('%b %o %Y', $ending) %>
13 $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">$error</FONT><BR><BR>!;
19 <%= if ($previous < $beginning) {
20 $OUT .= qq!<A HREF="${url}view_support_details;svcnum=$svcnum;beginning=!;
21 $OUT .= qq!$previous;ending=$beginning">Previous period</A>!;
26 <TD WIDTH="50%" ALIGN="right">
27 <%= if ($next > $ending) {
28 $OUT .= qq!<A HREF="${url}view_support_details;svcnum=$svcnum;beginning=!;
29 $OUT .= qq!$ending;ending=$next">Next period</A>!;
36 <TABLE BGCOLOR="#cccccc">
38 <TH ALIGN="left">Ticket</TH>
39 <TH ALIGN="center">Subject</TH>
40 <TH ALIGN="center">Staff</TH>
41 <TH ALIGN="center">Date</TH>
42 <TH ALIGN="center">Status</TH>
43 <TH ALIGN="right">Time</TH>
46 foreach my $usage ( @usage ) {
47 $OUT .= '<TR><TD ALIGN="left">';
48 $OUT .= $usage->{'ticketid'};
49 $OUT .= '</TD><TD ALIGN="right">';
50 $OUT .= $usage->{'subject'};
51 $OUT .= '</TD><TD ALIGN="right">';
52 $OUT .= $usage->{'creator'};
53 $OUT .= '</TD><TD ALIGN="left">';
54 $OUT .= Date::Format::time2str('%T%P %a %b %o %Y', $usage->{'_date'});
55 $OUT .= '</TD><TD ALIGN="right">';
56 $OUT .= $usage->{'status'};
57 $OUT .= '</TD><TD ALIGN="right">';
58 my $duration = $usage->{'support'};
59 $total += $usage->{'support'};
60 my $h = int($duration/3600);
61 my $m = sprintf("%02d", int(($duration % 3600) / 60));
62 my $s = sprintf("%02d", $duration % 60);
63 $OUT .= $usage->{'support'} < 0 ? '-' : '';
67 my $h = int($total/3600);
68 my $m = sprintf("%02d", int(($total % 3600) / 60));
69 my $s = sprintf("%02d", $total % 60);
70 $OUT .= qq!<TR><TD COLSPAN="5"></TD><TD ALIGN="right"><HR></TD></TR>!;
71 $OUT .= qq!<TR><TD COLSPAN="5"></TD><TD ALIGN="right">$h:$m:$s</TD></TR>!;
78 <%= include('footer') %>