<% # 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; #my $format = "%c %z (%Z)"; my $format = "%m/%d/%Y %T %z (%Z)"; print ntable("#cccccc",2), 'Package number', $pkgnum, '', 'Package', $pkg, '', 'Comment', $comment, '', 'Order taker', $otaker, '', 'Setup date'. ''. ' '. ''; print 'Last bill date', ''. ' '. '' if $cust_pkg->dbdef_table->column('last_bill'); print 'Next bill date', ''. ' '. ''; print 'Suspension date', time2str($format, $susp), '' if $susp; #print 'Expiration date', # time2str("%D",$expire), '' # if $expire; print 'Expiration date'. '', ''. ' '. '
(will cancel this package'. ' when the date is reached)'. ''; print 'Cancellation date', time2str($format, $cancel), '' if $cancel; %>