4 <% $cgi->redirect("${p}browse/upload_target.html") %>
9 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
11 my($query) = $cgi->keywords;
12 $query =~ /^(\d+)$/ || die "Illegal targetnum";
15 my $target = qsearchs('upload_target',{'targetnum'=>$targetnum});
16 my $error = $target->delete;