httemplate/view/elements/svc_export_settings.html

   1 % my ( $settings, $defaults ) = $svc_x->export_getsettings;
   2 % if ( keys %$settings ) {
   3
   4 %# XXX a way to label this "Communigate pro settings".. just a config maybe
   5   External settings
   6   <% ntable('#cccccc',2) %>
   7
   8 %   foreach my $key ( keys %$settings ) {
   9       <TR>
  10         <TD ALIGN="right"><% $key |h %></TD>
  11         <TD BGCOLOR="<% $defaults->{$key} ? '#eeeeee' : '#ffffff' %>">
  12           <% $defaults->{$key} ? '<I>' : '<B>' %>
  13           <% $settings->{$key} |h %>
  14           <% $defaults->{$key} ? '</I>' : '</B>' %>
  15         </TD>
  16       </TR>
  17 %   }
  18
  19   </TABLE>
  20   <BR>
  21
  22 % }
  23
  24 <%init>
  25
  26 my $svc_x = shift;
  27
  28 </%init>