%= $url = "$selfurl?session=$session_id;action="; ''; %>
<%= include('header', ($inbound ? 'Received calls' : 'Dialed calls' ) .
' for '.
Date::Format::time2str('%b %o %Y', $beginning).
' - '.
Date::Format::time2str('%b %o %Y', $ending)
)
%>
<%= if ( $error ) {
$OUT .= qq!$error
!;
} ''; %>
<%= if ($previous < $beginning) {
$OUT .= qq!Previous period!;
}else{
'';
} %>
|
<%= if ($next > $ending) {
$OUT .= qq!Next period!;
}else{
'';
}%>
|
<%= $space = ' | ';
$OUT .= join($space,
map { ''.$_.' | ' }
@header
)
%>
<%= my $total = 0;
my $utotal = 0;
my $dtotal = 0;
foreach my $usage ( @usage ) {
$OUT .= '';
$OUT .= join($space,
map { "$_ | " } @{$usage}
);
$OUT .= '
';
}
%>
<%= include('footer') %>