wtf?

[freeside.git] / httemplate / edit / process / REAL_cust_pkg.cgi

diff --git a/httemplate/edit/process/REAL_cust_pkg.cgi b/httemplate/edit/process/REAL_cust_pkg.cgi
index 3a62ee0..3e0ef59 100755 (executable)
--- a/httemplate/edit/process/REAL_cust_pkg.cgi
+++ b/httemplate/edit/process/REAL_cust_pkg.cgi
@@ -20,7 +20,8 @@ my $pkgnum = $cgi->param('pkgnum') or die;
 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 = ();
 
@@ -33,6 +34,10 @@ push @errors, '_setup_areyousure'
   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