summaryrefslogtreecommitdiff
path: root/httemplate/misc/cancel_pkg.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/misc/cancel_pkg.html')
-rwxr-xr-xhttemplate/misc/cancel_pkg.html112
1 files changed, 0 insertions, 112 deletions
diff --git a/httemplate/misc/cancel_pkg.html b/httemplate/misc/cancel_pkg.html
deleted file mode 100755
index 10c0e0d..0000000
--- a/httemplate/misc/cancel_pkg.html
+++ /dev/null
@@ -1,112 +0,0 @@
-%# if ( $link eq 'popup' ) {
- <% include('/elements/header-popup.html', $title ) %>
-%# } else {
-%# <% include("/elements/header.html", $title, '') %>
-%# }
-
-<LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
-<SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
-<SCRIPT TYPE="text/javascript" SRC="../elements/calendar-setup.js"></SCRIPT>
-
-<% include('/elements/error.html') %>
-
-<FORM NAME="sc_popup" ACTION="<% popurl(1) %>process/cancel_pkg.html" METHOD=POST>
-<INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
-<INPUT TYPE="hidden" NAME="method" VALUE="<% $method %>">
-
-
-<BR><BR>
-<% ucfirst($method) %> <% $part_pkg->pkg_comment %>
-<% ntable("#cccccc", 2) %>
-
-% if ($method eq 'expire' || $method eq 'adjourn') {
-<TR>
- <TD><% $submit =~ /^(\w*)\s/ %> package on </TD>
- <TD><INPUT TYPE="text" NAME="date" ID="expire_date" VALUE="<% $date |h %>">
- <IMG SRC="<% $p %>images/calendar.png" ID="expire_button" STYLE="cursor:pointer" TITLE="Select date">
- <BR><I>m/d/y</I>
- </TD>
-</TR>
-<SCRIPT TYPE="text/javascript">
- Calendar.setup({
- inputField: "expire_date",
- ifFormat: "<% $date_format %>",
- button: "expire_button",
- align: "BR"
- });
-</SCRIPT>
-%}
-%
-
-<% include('/elements/tr-select-reason.html',
- 'field' => 'reasonnum',
- 'reason_class' => $class,
- 'curr_value' => $reasonnum,
- 'control_button' => "document.getElementById('confirm_cancel_pkg_button')",
- )
-%>
-
-</TABLE>
-
-<BR>
-<INPUT TYPE="submit" NAME="submit" ID="confirm_cancel_pkg_button" VALUE="<% $submit %>" DISABLED>
-
-</FORM>
-</BODY>
-</HTML>
-
-<%init>
-
-my $conf = new FS::Conf;
-my $date_format = $conf->config('date_format') || '%m/%d/%Y';
-
-my $date = time2str($date_format, 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;
-
-</%init>