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