summaryrefslogtreecommitdiff
path: root/httemplate/view/elements/svc_export_status.html
blob: 4ce869e271dc7bb0a5f772481b8054130d5bb875 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
%   my ( $html, $hashref ) = $svc_x->export_getstatus;
%   if ( keys %$hashref ) {

    Status settings
    <% ntable('#cccccc',2) %>

%     foreach my $key ( sort {$a cmp $b} keys %$hashref ) {
        <TR>
          <TD ALIGN="right"><% $key |h %></TD>
          <TD BGCOLOR="#ffffff">
%           if ( ref($hashref->{$key}) eq 'ARRAY' ) {
%             foreach (@{ $hashref->{$key} }) {
                <% $_ |h %><BR>
%             }
%           } else {
              <% $hashref->{$key} |h %>
%           }
          </TD>
        </TR>
%     }

    </TABLE>
    <BR>

%   }
<%init>

my $svc_x = shift;

</%init>