httemplate/edit/process/quick-cust_pkg.cgi

   1 %#untaint custnum
   2 %$cgi->param('custnum') =~ /^(\d+)$/
   3 %  or die 'illegal custnum '. $cgi->param('custnum');
   4 %my $custnum = $1;
   5 %$cgi->param('pkgpart') =~ /^(\d+)$/
   6 %  or die 'illegal pkgpart '. $cgi->param('pkgpart');
   7 %my $pkgpart = $1;
   8 %
   9 %my @cust_pkg = ();
  10 %my $error = FS::cust_pkg::order($custnum, [ $pkgpart ], [], \@cust_pkg, [ $cgi->param('refnum') ] );
  11 %
  12 %if ($error) {
  13 %  $cgi->param('error', $error);
  14 %  print $cgi->redirect(popurl(2). 'misc/order_pkg.html?'. $cgi->query_string );
  15 %} else {
  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
  20
  21     // XXX chop off trailing #target and replace... ?
  22     window.top.location = '<% popurl(3). "view/cust_main.cgi?keywords=$custnum;fragment=$frag#$frag" %>';
  23
  24   </SCRIPT>
  25
  26   </BODY></HTML>
  27 %}