<% include("/elements/header-popup.html", $title) %> <% include('/elements/error.html') %>

Setting <% $key %> % my $description_printed = 0; % if ( grep $_ eq 'textarea', @types ) { % $description_printed = 1; - <% $description %> % } % if ( defined $config_item->editlist_parts ) { % my $pnum=0; % foreach my $part ( @{$config_item->editlist_parts} ) { % $pnum++; % } % } else { % }

% my $n = 0; % my $submit = 0; % foreach my $type (@types) { % if ( $type eq '' ) { no type % } elsif ( $type eq 'image' ) { % $submit++; <% $conf->exists($key, $agentnum) ? 'Current image '. ' ' : '' %> New image filename "> % } elsif ( $type eq 'binary' ) { % $submit++; Filename "> % } elsif ( $type eq 'textarea' ) { % $submit++; " rows=12 cols=78 wrap="off"><% join("\n", $conf->config($key, $agentnum)) |h %> % } elsif ( $type eq 'checkbox' ) { % % if ( $agentnum && $conf->exists($key) && ! $agent_bool ) { " type="checkbox" value="1" CHECKED DISABLED> (global setting cannot yet be overridden) % } else { % $submit++; " type="checkbox" value="1" <% $conf->config_bool($key, $agentnum) ? 'CHECKED' : '' %> > % } % } elsif ( $type eq 'text' ) { % $submit++; " type="text" value="<% $conf->exists($key, $agentnum) ? $conf->config($key, $agentnum) : '' |h %>"> % } elsif ( $type eq 'select' || $type eq 'selectmultiple' ) { % $submit++; " <% $type eq 'selectmultiple' ? 'MULTIPLE' : '' %>> % % my %hash = (); % if ( $config_item->select_enum ) { % tie %hash, 'Tie::IxHash', % '' => '', map { $_ => $_ } @{ $config_item->select_enum }; % } elsif ( $config_item->select_hash ) { % if ( ref($config_item->select_hash) eq 'ARRAY' ) { % tie %hash, 'Tie::IxHash', '' => '', @{ $config_item->select_hash }; % } else { % tie %hash, 'Tie::IxHash', '' => '', %{ $config_item->select_hash }; % } % } else { % %hash = ( '' => 'WARNING: neither select_enum nor select_hash specified in Conf.pm for configuration option "'. $key. '"' ); % } % % my %saw = (); % foreach my $value ( keys %hash ) { % local($^W)=0; next if $saw{$value}++; % my $label = $hash{$value}; % config($key, $agentnum) % || ( $type eq 'selectmultiple' % && grep { $_ eq $value } $conf->config($key, $agentnum) ) ) { SELECTED % } ><% $label %> % } % my $curvalue = $conf->config($key, $agentnum); % if ( $conf->exists($key, $agentnum) && $curvalue && ! $hash{$curvalue} ) { % if ( exists( $hash{ $conf->config($key, $agentnum) } ) ) { <% $hash{ $conf->config($key, $agentnum) } %> % }else{ <% $curvalue %> % } % } % } elsif ( $type eq 'select-sub' ) { % $submit++; " <% $config_item->multiple ? 'MULTIPLE' : '' %>> % unless ( $config_item->multiple ) { % } % my %options = &{$config_item->options_sub}; % my @options = keys %options; % my $sortsub = $config_item->sort_sub || sub { $a <=> $b }; % @options = sort $sortsub @options; % my %saw; % foreach my $value ( @options ) { % local($^W)=0; next if $saw{$value}++; config($key, $agentnum) % || ( $config_item->multiple % && grep { $_ eq $value } $conf->config($key, $agentnum) ) ){ SELECTED % } ><% $value %>: <% $options{$value} %> % } % my $curvalue = $conf->config($key, $agentnum); % if ( $conf->exists($key, $agentnum) && $curvalue && ! $options{$curvalue} ) { <% $curvalue %>: <% &{ $config_item->option_sub }( $curvalue ) %> % } % } elsif ( $type eq 'editlist' ) { % $submit++; "> ---------------------------------------------------------------- % foreach my $line ( $conf->config($key, $agentnum) ) { <% $line %> % } ()"> <% itable() %>
% if ( $part->{type} eq 'text' ) { "> % } elsif ( $part->{type} eq 'immutable' ) { <% $part->{value} %> " value="<% $part->{value} %>"> % } elsif ( $part->{type} eq 'select' ) { % foreach my $key ( keys %{$part->{select_enum}} ) { <% $part->{select_enum}{$key} %> % } % } else { unknown type <% $part->type %> % }	>	(this.form)">

% } elsif ( $element_types{$type} ) { % $submit++; % % my %opt = ( 'element_name' => "$key$n", % 'empty_label' => ' ', % ); % if ( $config_item->multiple ) { % $opt{'multiple'} = 1 if $config_item->multiple; % $opt{'curr_value'} = [ $conf->config($key, $agentnum) ]; % } else { % $opt{'curr_value'} = % $conf->exists($key, $agentnum) ? $conf->config($key, $agentnum) : ''; % } <% include("/elements/$type.html", %opt ) %> % } else { unknown type <% $type %> % } % $n++; % } % unless ( $description_printed ) { <% $description %> % } % if ( $submit ) { % }

<%once> my %element_types = map { $_ => 1 } qw( select-part_svc select-part_pkg select-pkg_class select-agent ); <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my $action = 'Set'; my $agentnum = ''; if ($cgi->param('agentnum') =~ /(\d+)$/) { $agentnum=$1; } my $locale = ''; if ( $cgi->param('locale') =~ /^(\w+_\w+)$/) { $locale = $1; } my $conf = new FS::Conf { 'locale' => $locale, 'localeonly' => 1 }; my @config_items = $conf->config_items; my %confitems = map { $_->key => $_ } @config_items; my $agent = ''; my $title; if ($agentnum) { $agent = qsearchs('agent', { 'agentnum' => $1 } ); die "Agent $agentnum not found!" unless $agent; $title = "$action configuration override for ". $agent->agent; } else { $title = "$action global configuration"; } $cgi->param('key') =~ /^([-.\w]+)$/ or die "illegal configuration item"; my $key = $1; my $value = $conf->config($key); my $config_item = $confitems{$key}; my $description = $config_item->description; my $config_type = $config_item->type; my @types = ref($config_type) ? @$config_type : ($config_type); my $agent_bool = $config_item->agent_bool;