4 %my ($query) = $cgi->keywords;
5 %$query =~ /^(\d+)$/ || die "Illegal pkgnum";
8 %my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
10 %my $error = $cust_pkg->unsuspend;
11 %&eidiot($error) if $error;
13 %print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum'));