blob: cdac434fa539850733e602c49a77c55d965774c3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
<%init>
die "access denied\n"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
die "No configuration item specified (bad URL)!" unless $cgi->keywords;
my ($query) = $cgi->keywords;
$query =~ /^(\d+)$/;
my $confnum = $1;
my $conf = qsearchs('conf', {'confnum' => $confnum});
die "Configuration not found!" unless $conf;
$conf->delete;
</%init>
<% $cgi->redirect(popurl(2) . "browse/agent.cgi") %>
|
