1 % if ( $FS::CurrentUser::CurrentUser->option('export_getsettings') ) {
3 % my ( $settings, $defaults ) = $svc_x->export_getsettings;
4 % if ( keys %$settings ) {
6 %# XXX a way to label this "Communigate pro settings".. just a config maybe
8 <% ntable('#cccccc',2) %>
10 % foreach my $key ( keys %$settings ) {
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>' %>