2 <SCRIPT TYPE="text/javascript">
3 window.top.location.reload();
9 my $right = 'Delay suspension events';
15 unless $FS::CurrentUser::CurrentUser->access_right($right);
17 my ($pkgnum, $date, $cust_pkg, $cust_main, $error);
20 $cgi->param('pkgnum') =~ /^(\d+)$/ or die "Illegal pkgnum";
26 if ( $cgi->param('date') ) {
27 parse_datetime($cgi->param('date')) =~ /^(\d+)$/ or die "Illegal date";
29 $msg = 'Package suspension delayed';
31 $msg = 'Suspension delay removed';
34 $cust_pkg = qsearchs( 'cust_pkg', {'pkgnum'=>$pkgnum} );
36 $cust_pkg->dundate( $date );
37 $error = $cust_pkg->replace;
39 $error = "Unknown pkgnum";
43 $cgi->param('error', $error);
44 print $cgi->redirect(popurl(2). "delay_susp_pkg.html?". $cgi->query_string );