httemplate/misc/unprovision.cgi

   1 %if ( $error ) {
   2 %  errorpage($error);
   3 %} elsif ( $pkgnum ) {
   4 <% $cgi->redirect(popurl(2)."search/cust_pkg_svc.html?svcpart=$svcpart;pkgnum=$pkgnum") %>
   5 %} else { # $custnum should always exist
   6 <% $cgi->redirect(popurl(2)."view/cust_main.cgi?$custnum") %>
   7 %}
   8 <%init>
   9
  10 die "access denied"
  11   unless $FS::CurrentUser::CurrentUser->access_right('Unprovision customer service');
  12
  13 #untaint svcnum
  14 my @svcnums;
  15 my ($pkgnum, $svcpart, $custnum);
  16 if( $cgi->param('svcnum') ) {
  17   @svcnums = grep { $_ } map { /^(\d+)$/ && $1 } $cgi->param('svcnum');
  18   $pkgnum = $cgi->param('pkgnum');
  19   $svcpart = $cgi->param('svcpart');
  20   $custnum = $cgi->param('custnum');
  21 }
  22 else {
  23   @svcnums = map { /^(\d+)$/ && $1 } $cgi->keywords;
  24 }
  25
  26 my $error = '';
  27 foreach my $svcnum (@svcnums) {
  28
  29   my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
  30   die "Unknown svcnum!" unless $cust_svc;
  31
  32   $custnum ||= $cust_svc->cust_pkg->custnum;
  33
  34   $error .= $cust_svc->cancel;
  35
  36 }
  37
  38 </%init>