% % %my $error =''; %my $pkgnum = ''; %my($susp,$adjourn,$cancel,$expire, $pkg, $comment, $setup, $bill, $otaker); % %my( $cust_pkg, $part_pkg ); % %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? ". % ''; % } % % $susp = $cgi->param('susp'); % $adjourn = $cgi->param('adjourn'); % $cancel = $cgi->param('cancel'); % $expire = $cgi->param('expire'); % $pkg = $cgi->param('pkg'); % $comment = $cgi->param('comment'); % $setup = $cgi->param('setup'); % $bill = $cgi->param('bill'); % $otaker = $cgi->param('otaker'); % % #get package record % $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); % die "No package!" unless $cust_pkg; % $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')}); % %} else { % my($query) = $cgi->keywords; % $query =~ /^(\d+)$/ or die "no pkgnum"; % $pkgnum = $1; % % #get package record % $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); % die "No package!" unless $cust_pkg; % $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')}); % % ($susp,$adjourn,$cancel,$expire)=( % $cust_pkg->getfield('susp'), % $cust_pkg->getfield('adjourn'), % $cust_pkg->getfield('cancel'), % $cust_pkg->getfield('expire'), % ); % ($pkg,$comment)=($part_pkg->getfield('pkg'),$part_pkg->getfield('comment')); % ($setup,$bill)=($cust_pkg->getfield('setup'),$cust_pkg->getfield('bill')); % $otaker = $cust_pkg->getfield('otaker'); %} % %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'); % <% include("/elements/header.html",'Customer package - Edit dates') %> % %#, menubar( %# "View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum", %# 'Main Menu' => popurl(2) %#)); %