1 <!-- $Id: expire_pkg.cgi,v 1.3 2002-01-30 14:18:09 ivan Exp $ -->
7 if ( $cgi->param('date') ) {
8 str2time($cgi->param('date')) =~ /^(\d+)$/ or die "Illegal date";
14 $cgi->param('pkgnum') =~ /^(\d+)$/ or die "Illegal pkgnum";
17 my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
18 my %hash = $cust_pkg->hash;
20 my $new = new FS::cust_pkg ( \%hash );
21 my $error = $new->replace($cust_pkg);
22 &eidiot($error) if $error;
24 print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum'));