diff options
Diffstat (limited to 'httemplate/misc/cust_attachment.cgi')
-rw-r--r-- | httemplate/misc/cust_attachment.cgi | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/httemplate/misc/cust_attachment.cgi b/httemplate/misc/cust_attachment.cgi deleted file mode 100644 index d1ec777d8..000000000 --- a/httemplate/misc/cust_attachment.cgi +++ /dev/null @@ -1,34 +0,0 @@ -<% '',$cgi->redirect(popurl(2). "browse/cust_attachment.html?$browse_opts") %> -<%init> - -$cgi->param('action') =~ /^(Delete|Undelete|Purge) selected$/ - or die "Illegal action"; -my $action = $1; - -my $browse_opts = join(';', map { $_.'='.$cgi->param($_) } - qw( orderby show_deleted ) - ); - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right("$action attachment"); - -foreach my $attachnum ( - map { /^attachnum(\d+)$/; $1; } grep /^attachnum\d+$/, $cgi->param - ) { - my $attach = qsearchs('cust_attachment', { 'attachnum' => $attachnum }); - my $error; - if ( $action eq 'Delete' and !$attach->disabled ) { - $attach->disabled(time); - $error = $attach->replace; - } - elsif ( $action eq 'Undelete' and $attach->disabled ) { - $attach->disabled(''); - $error = $attach->replace; - } - elsif ( $action eq 'Purge' and $attach->disabled ) { - $error = $attach->delete; - } - die $error if $error; -} - -</%init> |