1 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
2 <%= include('header', 'Call usage for '.
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;beginning=!;
18 $OUT .= qq!$previous;ending=$beginning">Previous period</A>!;
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>!;
33 <TABLE BGCOLOR="#cccccc">
35 <%= foreach my $header (@header) {
36 $OUT .= qq(<TH ALIGN="right">$header</TH>);
43 foreach my $usage ( @usage ) {
45 $OUT .= qq(<TD>$_</TD>) foreach @{$usage};
53 <%= include('footer') %>