% % %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"; % $pkgnum = $1; %} % %#get package record %my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); %die "No package!" unless $cust_pkg; %my $part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')}); % %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) %#)); % % % %#print info %my($susp,$cancel,$expire)=( % $cust_pkg->getfield('susp'), % $cust_pkg->getfield('cancel'), % $cust_pkg->getfield('expire'), %); %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'); % %