1 <%= include('header', ($inbound ? 'Received calls' : 'Dialed calls' ) .
3 Date::Format::time2str('%b %o %Y', $beginning).
5 Date::Format::time2str('%b %o %Y', $ending)
10 $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">$error</FONT><BR><BR>!;
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>!;
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>!;
35 <TABLE BGCOLOR="#cccccc">
37 <%= $space = '<TD> </TD>';
39 map { '<TH ALIGN="right">'.$_.'</TH>' }
47 foreach my $usage ( @usage ) {
50 map { "<TD>$_</TD>" } @{$usage}
59 <%= include('footer') %>