<& /elements/header-popup.html, mt($title) &> <& /elements/error.html &> %# use unsusp_pkg.cgi, the same target as a direct "unsuspend package" link

<% emt('Start billing [_1]', $part_pkg->pkg_comment(cust_pkg => $cust_pkg)) %>
<%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Unsuspend customer package'); my $pkgnum; if ( $cgi->param('pkgnum') =~ /^(\d+)$/ ) { $pkgnum = $1; } else { die "illegal query ". $cgi->keywords; } my $conf = new FS::Conf; my $date_format = $conf->config('date_format') || '%m/%d/%Y'; my $title = 'Start billing package'; my $cust_pkg = qsearchs({ table => 'cust_pkg', addl_from => ' JOIN cust_main USING (custnum) ', hashref => { 'pkgnum' => $pkgnum }, extra_sql => ' AND '. $curuser->agentnums_sql, }) or die "Unknown pkgnum: $pkgnum"; my $next_bill_date = $cust_pkg->cust_main->next_bill_date; my $part_pkg = $cust_pkg->part_pkg; my $when = $cgi->param('when'); # on error if (!$when) { if ($next_bill_date) { $when = 'next_bill_date'; } else { $when = 'now'; } }