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