%= $url = "$selfurl?session=$session_id;action="; ''; %>
<%= include('header') %>
Call usage 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{
'';
}%>
|
<%= foreach my $header (@header) {
$OUT .= qq($header | );
}
%>
<%= my $total = 0;
my $utotal = 0;
my $dtotal = 0;
foreach my $usage ( @usage ) {
$OUT .= '';
$OUT .= qq($_ | ) foreach @{$usage};
$OUT .= '
';
}
%>
<%= include('footer') %>