<& /elements/header-popup.html, mt($title) &> <& /elements/error.html &>

<% emt(ucfirst($method)." [_1]", $part_pkg->pkg_comment) %> <% ntable("#cccccc", 2) %> % if ($method eq 'expire' || $method eq 'adjourn') { % $submit =~ /^(\w*)\s/; <% mt("$1 package on") |h %>
<% mt('m/d/y') |h %> %} % <& /elements/tr-select-reason.html, 'field' => 'reasonnum', 'reason_class' => $class, 'curr_value' => $reasonnum, 'control_button' => "document.getElementById('confirm_cancel_pkg_button')", &>

<%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;