3 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
5 $cgi->param('confnum') =~ /^(\d+)$/ or die "illegal or missing confnum";
8 my $conf = qsearchs('conf', {'confnum' => $confnum});
9 die "Configuration not found!" unless $conf;
12 my $redirect = popurl(2);
13 if ( $cgi->param('redirect') eq 'config_view_showagent' ) {
14 $redirect .= 'config/config-view.cgi?showagent=1#'. $conf->name;
15 } elsif ( $cgi->param('redirect') eq 'config_view' ) {
16 $redirect .= 'config/config-view.cgi';
18 $redirect .= 'browse/agent.cgi';
22 <% $cgi->redirect($redirect) %>