This commit was manufactured by cvs2svn to create branch
[freeside.git] / httemplate / misc / susp_pkg.cgi
1 <%
2
3 #untaint pkgnum
4 my ($query) = $cgi->keywords;
5 $query =~ /^(\d+)$/ || die "Illegal pkgnum";
6 my $pkgnum = $1;
7
8 my $cust_pkg = qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
9
10 my $error = $cust_pkg->suspend;
11 &eidiot($error) if $error;
12
13 print $cgi->redirect(popurl(2). "view/cust_main.cgi?".$cust_pkg->getfield('custnum'));
14
15 %>