httemplate/view/elements/svc_export_settings.html

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