6 if ( $cgi->param('date') ) {
7 str2time($cgi->param('date')) =~ /^(\d+)$/ or die "Illegal date";
13 $cgi->param('pkgnum') =~ /^(\d+)$/ or die "Illegal pkgnum";
16 my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
17 my %hash = $cust_pkg->hash;
19 my $new = new FS::cust_pkg ( \%hash );
20 my $error = $new->replace($cust_pkg);
21 &eidiot($error) if $error;
23 print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum'));