summaryrefslogtreecommitdiff
path: root/httemplate/misc/cust_attachment.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/misc/cust_attachment.cgi')
-rw-r--r--httemplate/misc/cust_attachment.cgi34
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>