1 <& elements/process.html,
2 'table' => 'upload_target',
3 'viewall_dir' => 'browse',
5 'precheck_callback'=> \&precheck,
8 my $curuser = $FS::CurrentUser::CurrentUser;
11 unless $curuser->access_right('Configuration');
15 my $protocol = $cgi->param('protocol');
16 # promote whatever set of fields was selected to the "real" values
17 my $params = $cgi->Vars;
18 foreach ( keys %$params ) {
19 if ( $_ =~ /^${protocol}_(\w+)/ ) {
20 $cgi->param($1, $cgi->param($_));