-<!-- $Id: link.cgi,v 1.4 2002-02-09 17:45:26 ivan Exp $ -->
<%
$cgi->param('pkgnum') =~ /^(\d+)$/;
#no errors, so let's view this customer.
print $cgi->redirect(popurl(3). "view/cust_pkg.cgi?$pkgnum");
} else {
+%>
+<!-- mason kludge -->
+<%
idiot($error);
}