<%
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');
%>
<%= header('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');
%>