diff options
Diffstat (limited to 'httemplate/misc/unexpire_pkg.cgi')
-rwxr-xr-x | httemplate/misc/unexpire_pkg.cgi | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/httemplate/misc/unexpire_pkg.cgi b/httemplate/misc/unexpire_pkg.cgi deleted file mode 100755 index 445025524..000000000 --- a/httemplate/misc/unexpire_pkg.cgi +++ /dev/null @@ -1,17 +0,0 @@ -%if ( $error ) { -% errorpage($error); -%} else { -<% $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum')) %> -%} -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Cancel customer package later'); - -my ($pkgnum) = $cgi->keywords; -my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); -my $error = "No package $pkgnum" unless $cust_pkg; - -$error ||= $cust_pkg->unexpire; - -</%init> |