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