<% # my $error =''; my $pkgnum = ''; if ( $cgi->param('error') ) { $error = $cgi->param('error'); $pkgnum = $cgi->param('pkgnum'); } 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'))); } #my $custnum = $cust_pkg->getfield('custnum'); print header('Package Edit'); #, 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'); print '

', qq!!; print qq!Error: $error! if $error; print &ntable("#cccccc"), '', &ntable("#cccccc",2), 'Package number', $pkgnum, '', 'Package', $pkg, '', 'Comment', $comment, '', 'Order taker', $otaker, '', 'Setup date'. '', 'Next bill date', '', ; print 'Suspension date', time2str("%D",$susp), '' if $susp; print 'Expiration date', time2str("%D",$expire), '' if $expire; print 'Cancellation date', time2str("%D",$cancel), '' if $cancel; %>