%# if ( $link eq 'popup' ) { <% include('/elements/header-popup.html', $title ) %> %# } else { %# <% include("/elements/header.html", $title, '') %> %# } <% include('/elements/init_calendar.html') %> <% include('/elements/error.html') %>


<% "Delay automatic suspension of ". $part_pkg->pkg_comment( cust_pkg=>$cust_pkg ) %> <% ntable("#cccccc", 2) %> Delay until
m/d/y
<%init> my $conf = new FS::Conf; my $date_format = $conf->config('date_format') || '%m/%d/%Y'; my $date = time2str($date_format, time); my($pkgnum); if ( $cgi->param('error') ) { $pkgnum = $cgi->param('pkgnum'); $date = $cgi->param('date'); } elsif ( $cgi->param('pkgnum') =~ /^(\d+)$/ ) { $pkgnum = $1; } else { die "illegal query ". $cgi->keywords; } my $submit = 'Delay Suspension'; my $right = 'Delay suspension events'; my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right($right); my $title = 'Delay Suspension of Package'; my $cust_pkg = qsearchs('cust_pkg', {'pkgnum' => $pkgnum}) or die "Unknown pkgnum: $pkgnum"; $date = time2str($date_format, $cust_pkg->dundate) if $cust_pkg->dundate && ! $cgi->param('error'); my $part_pkg = $cust_pkg->part_pkg;