<% my($query) = $cgi->keywords; $query =~ /^(\d+)$/; my $pkgnum = $1; #get package record my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum}); die "Unknown pkgnum $pkgnum" unless $cust_pkg; my $part_pkg = $cust_pkg->part_pkg; my $custnum = $cust_pkg->getfield('custnum'); my $date = $cust_pkg->expire ? time2str('%D', $cust_pkg->expire) : ''; %> <%= header('Expire package', menubar( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", 'Main Menu' => popurl(2) )) %> <%= $pkgnum %>: <%= $part_pkg->pkg. ' - '. $part_pkg->comment %>
Cancel package on
m/d/y