<%init>
-
die "access denied\n"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
} else {
$conf->delete($i->key);
}
+ } elsif ( $type eq 'binary' ) {
+ if ( defined($cgi->param($i->key. $n)) && $cgi->param($i->key. $n) ) {
+ my $fh = $cgi->upload($i->key. $n);
+ if (defined($fh)) {
+ local $/;
+ $conf->set_binary($i->key, <$fh>);
+ }
+ }else{
+ warn "Condition failed for " . $i->key;
+ }
} elsif ( $type eq 'checkbox' ) {
# if ( defined($cgi->param($i->key. $n)) && $cgi->param($i->key. $n) ) {
if ( defined $cgi->param($i->key. $n) ) {
$conf->touch($_) foreach @touch;
$conf->delete($_) foreach @delete;
}
-
</%init>
<% $cgi->redirect("config-view.cgi") %>