fs_selfservice/FS-SelfService/cgi/view_cdr_details.html

   1 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
   2 <%= include('header', 'Call usage for '.
   3                        Date::Format::time2str('%b&nbsp;%o&nbsp;%Y', $beginning).
   4                        ' - '.
   5                        Date::Format::time2str('%b&nbsp;%o&nbsp;%Y', $ending)
   6            )
   7 %>
   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_cdr_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_cdr_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 <%= foreach my $header (@header) {
  36       $OUT .= qq(<TH ALIGN="right">$header</TH>);
  37     }
  38 %>
  39   </TR>
  40 <%= my $total = 0;
  41     my $utotal = 0;
  42     my $dtotal = 0;
  43     foreach my $usage ( @usage ) {
  44       $OUT .= '<TR>';
  45       $OUT .= qq(<TD>$_</TD>) foreach @{$usage};
  46       $OUT .= '</TR>';
  47     }
  48 %>
  49
  50 </TABLE>
  51 <BR>
  52
  53 </TD></TR></TABLE>
  54 <%= include('footer') %>