X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2FREAL_cust_pkg.cgi;h=78dd0fafaf9749a901252b9b963b74259395ad1f;hb=e5787d471e4d94f28cfb68db97b31eefbe35a651;hp=d9b7579f68200941a4ebe86ca936d08adf017fa8;hpb=b8cfd0780aa40bb07f3215bf9cb58011f5e32a35;p=freeside.git diff --git a/httemplate/edit/REAL_cust_pkg.cgi b/httemplate/edit/REAL_cust_pkg.cgi index d9b7579f6..78dd0fafa 100755 --- a/httemplate/edit/REAL_cust_pkg.cgi +++ b/httemplate/edit/REAL_cust_pkg.cgi @@ -1,12 +1,17 @@ - <% -# my $error =''; my $pkgnum = ''; if ( $cgi->param('error') ) { $error = $cgi->param('error'); $pkgnum = $cgi->param('pkgnum'); + if ( $error eq '_bill_areyousure' ) { + my $bill = $cgi->param('bill'); + $error = "You are attempting to set the next bill date to $bill, which is + in the past. This will charge the customer for the interval + from $bill until now. Are you sure you want to do this? ". + ''; + } } else { my($query) = $cgi->keywords; $query =~ /^(\d+)$/ or die "no pkgnum"; @@ -22,20 +27,24 @@ if ( $error ) { #$cust_pkg->$_(str2time($cgi->param($_)) foreach qw(setup bill); $cust_pkg->setup(str2time($cgi->param('setup'))); $cust_pkg->bill(str2time($cgi->param('bill'))); + $cust_pkg->last_bill(str2time($cgi->param('last_bill'))); } #my $custnum = $cust_pkg->getfield('custnum'); -print header('Package Edit'); #, menubar( +%> + +<%= header('Customer package - Edit dates') %> +<% +#, menubar( # "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum", # 'Main Menu' => popurl(2) #)); - %> - - - - + + + + <% @@ -49,67 +58,106 @@ my($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment')); my($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill')); my $otaker = $cust_pkg->getfield('otaker'); -print '