fs_selfservice/FS-SelfService/cgi/view_cdr_details.html

   1 <%= include('header', ($inbound ? 'Received calls' : 'Dialed calls' ) .
   2                        ' 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 <%=
  17     $ahref = qq!<A HREF="${url}view_cdr_details;svcnum=$svcnum;!;
  18     $ahref = qq!inbound=1;! if $inbound;
  19     if ($previous < $beginning) {
  20       $OUT .= $ahref.
  21               qq!beginning=$previous;ending=$beginning">Previous period</A>!;
  22     } else {
  23       '';
  24     }
  25 %>
  26     </TD>
  27     <TD  WIDTH="50%" ALIGN="right">
  28 <%=
  29     if ($next > $ending) {
  30       $OUT .= $ahref. qq!beginning=$ending;ending=$next">Next period</A>!;
  31     } else {
  32       '';
  33     }
  34 %>
  35     </TD>
  36   </TR>
  37 </TABLE>
  38 <TABLE BGCOLOR="#cccccc">
  39   <TR>
  40 <%= $space = '<TD>&nbsp;</TD>';
  41   $OUT .= join($space,
  42     map { '<TH ALIGN="right">'.$_.'</TH>' }
  43     @header
  44   )
  45 %>
  46   </TR>
  47 <%= my $total = 0;
  48     my $utotal = 0;
  49     my $dtotal = 0;
  50     foreach my $usage ( @usage ) {
  51       $OUT .= '<TR>';
  52       $OUT .= join($space,
  53         map { "<TD>$_</TD>" } @{$usage}
  54       );
  55       $OUT .= '</TR>';
  56     }
  57 %>
  58
  59 </TABLE>
  60 <BR>
  61
  62 <%= include('footer') %>