summaryrefslogtreecommitdiff
path: root/httemplate/view/elements/svc_export_settings.html
blob: 026280546b83f7e2f56ba246c71670fc5b351b91 (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
% my ( $settings, $defaults ) = $svc_x->export_getsettings;
% if ( keys %$settings ) {

%# XXX a way to label this "Communigate pro settings".. just a config maybe
  External settings
  <% ntable('#cccccc',2) %>

%   foreach my $key ( keys %$settings ) {
      <TR>
        <TD ALIGN="right"><% $key |h %></TD>
        <TD BGCOLOR="<% $defaults->{$key} ? '#eeeeee' : '#ffffff' %>">
          <% $defaults->{$key} ? '<I>' : '<B>' %>
          <% $settings->{$key} |h %>
          <% $defaults->{$key} ? '</I>' : '</B>' %>
        </TD>
      </TR>
%   }

  </TABLE>
  <BR>

% }

<%init>

my $svc_x = shift;

</%init>