my $old = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
my %hash = $old->hash;
$hash{$_}= $cgi->param($_) ? parse_datetime($cgi->param($_)) : ''
- foreach qw( start_date setup bill last_bill adjourn expire contract_end );
+ foreach qw( start_date setup bill last_bill contract_end );
+ # adjourn, expire, resume not editable this way
my @errors = ();
if ! $hash{'setup'} && $old->setup # if the setup date was removed
&& ! $cgi->param('setup_areyousure'); # and it wasn't confirmed
+push @errors, '_setupadd_areyousure'
+ if $hash{'setup'} && ! $old->setup # if the setup date was added
+ && ! $cgi->param('setupadd_areyousure'); # and it wasn't confirmed
+
push @errors, '_start'
if $hash{'start_date'} && !$old->start_date # if a start date was added
&& $hash{'setup'}; # but there's a setup date