1 % my ( $html, $hashref ) = $svc_x->export_getstatus;
2 % if ( keys %$hashref ) {
5 <% ntable('#cccccc',2) %>
7 % foreach my $key ( sort {$a cmp $b} keys %$hashref ) {
9 <TD ALIGN="right"><% $key |h %></TD>
10 <TD BGCOLOR="#ffffff">
11 % if ( ref($hashref->{$key}) eq 'ARRAY' ) {
12 % foreach (@{ $hashref->{$key} }) {
16 <% $hashref->{$key} |h %>