%= 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
!;
} ''; %>
<%=
$ahref = qq!Previous period!;
} else {
'';
}
%>
|
<%=
if ($next > $ending) {
$OUT .= $ahref. qq!beginning=$ending;ending=$next">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') %>