optimize CDR rating after timed rate perf regression, RT#15739
[freeside.git] / httemplate / misc / maestro-customer_status-test.html
1 <% include('/elements/header.html', {
2              'title' => "Customer $custnum status",
3           }) %>
4
5 <% include('/elements/small_custview.html', $custnum, '', 1) %>
6 <BR>
7
8 <table style="border:1px solid #000000">
9 % foreach my $key (keys %$return) {
10 %   my $value = $return->{$key};
11 %   $value = join(', ', @$value) if ref($value) eq 'ARRAY';
12     <TR>
13       <TD ALIGN="right"><% $key %>:</TD>
14       <TD><B><% $value %></B></TD>
15     </TR>
16 % }
17 </table>
18
19 <% include('/elements/footer.html') %>
20 <%init>
21
22 my $return;
23
24 my($custnum, $svcnum) = $cgi->keywords;
25 if ( $custnum =~ /^(\d+)$/ ) {
26
27   use FS::Maestro;
28   $return = FS::Maestro::customer_status($1, $svcnum);
29
30 } else {
31   $return = { 'error' => 'No custnum' };
32 }
33
34 </%init>