% % %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) : ''; % % <% include("/elements/header.html",'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