diff options
Diffstat (limited to 'fs_selfservice')
| -rw-r--r-- | fs_selfservice/FS-SelfService/cgi/view_cdr_details.html | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/view_cdr_details.html b/fs_selfservice/FS-SelfService/cgi/view_cdr_details.html index 620fa2218..b0205ec89 100644 --- a/fs_selfservice/FS-SelfService/cgi/view_cdr_details.html +++ b/fs_selfservice/FS-SelfService/cgi/view_cdr_details.html @@ -9,7 +9,7 @@ <%= if ( $error ) { $OUT .= qq!<FONT SIZE="+1" COLOR="#ff0000">$error</FONT><BR><BR>!; } ''; %> - + <TABLE WIDTH="100%"> <TR> <TD WIDTH="50%"> @@ -32,9 +32,11 @@ </TABLE> <TABLE BGCOLOR="#cccccc"> <TR> -<%= foreach my $header (@header) { - $OUT .= qq(<TH ALIGN="right">$header</TH>); - } +<%= $space = '<TD> </TD>'; + $OUT .= join($space, + map { '<TH ALIGN="right">'.$_.'</TH>' } + @header + ) %> </TR> <%= my $total = 0; @@ -42,7 +44,9 @@ my $dtotal = 0; foreach my $usage ( @usage ) { $OUT .= '<TR>'; - $OUT .= qq(<TD>$_</TD>) foreach @{$usage}; + $OUT .= join($space, + map { "<TD>$_</TD>" } @{$usage} + ); $OUT .= '</TR>'; } %> |