<& /elements/header-popup.html, mt('Suspend customer') &> <& /elements/error.html &>

<% mt('Suspend this customer?') |h %>
<% mt('Suspend now') |h %>
<% mt('Suspend on date: ') |h %> <& /elements/input-date-field.html, { 'name' => 'adjourn', 'value' => time, } &>
<& /elements/tr-select-reason.html, 'field' => 'reasonnum', 'reason_class' => 'S', 'cgi' => $cgi, 'control_button' => 'confirm_suspend_cust_button', &>

         " onClick="parent.cClick();">

<%init> #false laziness w/cancel_cust.html $cgi->param('custnum') =~ /^(\d+)$/ or die 'illegal custnum'; my $custnum = $1; my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('Suspend customer'); my $cust_main = qsearchs( { 'table' => 'cust_main', 'hashref' => { 'custnum' => $custnum }, 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, } ); die "No customer # $custnum" unless $cust_main;