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 %# a way to label this "Communigate pro settings".. just a config maybe... eh,
   7 %# its just for devel
   8     External settings
   9     <% ntable('#cccccc',2) %>
  10
  11 %     foreach my $key ( sort {$defaults->{$a} <=> $defaults->{$b} or $a cmp $b}
  12 %                            keys %$settings
  13 %                     )
  14 %    {
  15         <TR>
  16           <TD ALIGN="right"><% $key |h %></TD>
  17           <TD BGCOLOR="<% $defaults->{$key} ? '#eeeeee' : '#ffffff' %>">
  18             <% $defaults->{$key} ? '<I>' : '<B>' %>
  19             <% $settings->{$key} |h %>
  20             <% $defaults->{$key} ? '</I>' : '</B>' %>
  21           </TD>
  22         </TR>
  23 %     }
  24
  25     </TABLE>
  26     <BR>
  27
  28 %   }
  29 % }
  30 <%init>
  31
  32 my $svc_x = shift;
  33
  34 </%init>