httemplate/edit/process/quick-cust_pkg.cgi

   1 %if ($error) {
   2 <<<<<<< quick-cust_pkg.cgi
   3 %  $cgi->param('error', $error);
   4 <% $cgi->redirect(popurl(3). 'misc/order_pkg.html?'. $cgi->query_string ) %>
   5 =======
   6 %  errorpage($error);
   7 >>>>>>> 1.9.2.3
   8 %} else {
   9 <% $cgi->redirect(popurl(3). "view/cust_main.cgi?$custnum#cust_pkg". $cust_pkg[0]->pkgnum ) %>
  10 %}
  11 <%init>
  12
  13 die "access denied"
  14   unless $FS::CurrentUser::CurrentUser->access_right('Order customer package');
  15
  16 #untaint custnum
  17 $cgi->param('custnum') =~ /^(\d+)$/
  18   or die 'illegal custnum '. $cgi->param('custnum');
  19 my $custnum = $1;
  20 $cgi->param('pkgpart') =~ /^(\d+)$/
  21   or die 'illegal pkgpart '. $cgi->param('pkgpart');
  22 my $pkgpart = $1;
  23
  24 my @cust_pkg = ();
  25 my $error = FS::cust_pkg::order($custnum, [ $pkgpart ], [], \@cust_pkg, );
  26
  27 </%init>