2 %$cgi->param('custnum') =~ /^(\d+)$/
3 % or die 'illegal custnum '. $cgi->param('custnum');
5 %$cgi->param('pkgpart') =~ /^(\d+)$/
6 % or die 'illegal pkgpart '. $cgi->param('pkgpart');
10 %my $error = FS::cust_pkg::order($custnum, [ $pkgpart ], [], \@cust_pkg, [ $cgi->param('refnum') ] );
13 % $cgi->param('error', $error);
14 % print $cgi->redirect(popurl(2). 'misc/order_pkg.html?'. $cgi->query_string );
16 % my $frag = "cust_pkg". $cust_pkg[0]->pkgnum;
17 <% header('Package ordered') %>
18 <SCRIPT TYPE="text/javascript">
19 // XXX fancy ajax rebuild table at some point, but a page reload will do for now
21 // XXX chop off trailing #target and replace... ?
22 window.top.location = '<% popurl(3). "view/cust_main.cgi?keywords=$custnum;fragment=$frag#$frag" %>';