From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Sun, 16 Mar 2008 19:58:34 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'. --- httemplate/misc/cancel_pkg.html | 109 ---------------------------------------- 1 file changed, 109 deletions(-) delete mode 100755 httemplate/misc/cancel_pkg.html (limited to 'httemplate/misc/cancel_pkg.html') diff --git a/httemplate/misc/cancel_pkg.html b/httemplate/misc/cancel_pkg.html deleted file mode 100755 index 8dffba72e..000000000 --- a/httemplate/misc/cancel_pkg.html +++ /dev/null @@ -1,109 +0,0 @@ -%# if ( $link eq 'popup' ) { - <% include('/elements/header-popup.html', $title ) %> -%# } else { -%# <% include("/elements/header.html", $title, '') %> -%# } - - - - - - -<% include('/elements/error.html') %> - -
- - - - -

-<% ucfirst($method) . " $pkgnum: " .$part_pkg->pkg. ' - ' .$part_pkg->comment %> -<% ntable("#cccccc", 2) %> - -% if ($method eq 'expire' || $method eq 'adjourn') { - - <% $submit =~ /^(\w*)\s/ %> package on - - -
m/d/y - - - -%} -% - -<% include('/elements/tr-select-reason.html', - 'field' => 'reasonnum', - 'reason_class' => $class, - 'curr_value' => $reasonnum, - 'control_button' => 'document.sc_popup.submit', - ) -%> - - - -
- - -
- - - -<%init> - -my $date = time2str("%m/%d/%Y", time); - -my($pkgnum, $reasonnum); -if ( $cgi->param('error') ) { - $pkgnum = $cgi->param('pkgnum'); - $reasonnum = $cgi->param('reasonnum'); - $date = $cgi->param('date'); -} elsif ( $cgi->param('pkgnum') =~ /^(\d+)$/ ) { - $pkgnum = $1; - $reasonnum = ''; -} else { - die "illegal query ". $cgi->keywords; -} - -$cgi->param('method') =~ /^(\w+)$/ or die 'illegal method'; -my $method = $1; - -my($class, $submit, $right); -if ($method eq 'cancel') { - $class = 'C'; - $submit = 'Cancel Now'; - $right = 'Cancel customer package immediately'; -} elsif ($method eq 'expire') { - $class = 'C'; - $submit = 'Cancel Later'; - $right = 'Cancel customer package later'; -} elsif ($method eq 'suspend') { - $class = 'S'; - $submit = 'Suspend Now'; - $right = 'Suspend customer package'; -} elsif ($method eq 'adjourn') { - $class = 'S'; - $submit = "Suspend Later"; - $right = 'Suspend customer package later'; -} else { - die 'illegal query (unknown method param)'; -} - -my $curuser = $FS::CurrentUser::CurrentUser; -die "access denied" unless $curuser->access_right($right); - -my $title = ucfirst($method) . ' Package'; - -my $cust_pkg = qsearchs('cust_pkg', {'pkgnum' => $pkgnum}) - or die "Unknown pkgnum: $pkgnum"; - -my $part_pkg = $cust_pkg->part_pkg; - - -- cgit v1.2.1