<% include("/elements/header-popup.html", $title) %> % if ( $cgi->param('error') ) { Error: <% $cgi->param('error') %>

% }

Setting <% $key %> % if ( defined $config_item->editlist_parts ) { % my $pnum=0; % foreach my $part ( @{$config_item->editlist_parts} ) { % $pnum++; % } % } else { % }

% my $n = 0; % foreach my $type ( ref($config_item->type) ? @{$config_item->type} : $config_item->type ) { % if ( $type eq '' ) { no type % } elsif ( $type eq 'binary' ) { Filename "> % } elsif ( $type eq 'textarea' ) { " rows=5><% join("\n", $conf->config($key, $agentnum)) %> % } elsif ( $type eq 'checkbox' ) { " type="checkbox" value="1" <% $conf->exists($key, $agentnum) ? 'CHECKED' : '' %> > % } elsif ( $type eq 'text' ) { " type="text" value="<% $conf->exists($key, $agentnum) ? $conf->config($key, $agentnum) : '' %>"> % } elsif ( $type eq 'select' || $type eq 'selectmultiple' ) { " <% $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' ) { "> % my %options = &{$config_item->options_sub}; % my @options = sort { $a <=> $b } keys %options; % my %saw; % foreach my $value ( @options ) { % local($^W)=0; next if $saw{$value}++; 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' ) { % "> ---------------------------------------------------------------- % 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)">

% } else { unknown type $type % } % $n++; % } <% $description %>

<%once> my $conf = new FS::Conf; my %confitems = map { $_->key => $_ } $conf->config_items; <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); my($agentnum, $agent, $title, $action, $key, $value, $config_item, $description, $type); $action = 'Set'; if ($cgi->param('agentnum') =~ /(\d+)$/) { $agentnum=$1; } 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"; $key=$1; $value = $conf->config($key); $config_item = $confitems{$key}; $description = $config_item->description; $type = $config_item->type;