%#}
<& .row_display, cust_pkg=>$cust_pkg, column=>'adjourn', label=>'Adjournment', note=>'(will <b>suspend</b> this package when the date is reached)' &>
<& .row_display, cust_pkg=>$cust_pkg, column=>'susp', label=>'Suspension' &>
+ <& .row_display, cust_pkg=>$cust_pkg, column=>'resume', label=>'Resumption', note=> '(will <b>unsuspend</b> this package when the date is reached' &>
<& .row_display, cust_pkg=>$cust_pkg, column=>'expire', label=>'Expiration', note=>'(will <b>cancel</b> this package when the date is reached)' &>
<& .row_display, cust_pkg=>$cust_pkg, column=>'cancel', label=>'Cancellation' &>
if ( $errors{'_setup_areyousure'} ) {
push @errors,
"You are attempting to remove the setup date. This will re-charge the
- customer for the setup fee. Are you sure you want to do this? ".
+ customer for the setup fee. Are you sure you want to do this? ".
'<INPUT TYPE="checkbox" NAME="setup_areyousure" VALUE="1">';
}
+ if ( $errors{'_setupadd_areyousure'} ) {
+ push @errors,
+ "You are attempting to add a setup date. This will prevent charging the
+ customer for the setup fee. Are you sure you want to do this? ".
+ '<INPUT TYPE="checkbox" NAME="setupadd_areyousure" VALUE="1">';
+ }
+
if ( $errors{'_start'} ) {
push @errors,
"You are attempting to add a start date to a package that has already
$cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
die "No package!" unless $cust_pkg;
- foreach my $col (qw( start_date setup last_bill bill adjourn expire )) {
+ foreach my $col (qw( start_date setup last_bill bill )) {
my $value = $cgi->param($col);
$cust_pkg->set( $col, $value ? parse_datetime($value) : '' );
}