diff options
Diffstat (limited to 'httemplate/edit/process/router.cgi')
| -rw-r--r-- | httemplate/edit/process/router.cgi | 67 | 
1 files changed, 0 insertions, 67 deletions
diff --git a/httemplate/edit/process/router.cgi b/httemplate/edit/process/router.cgi deleted file mode 100644 index a2fa46dd9..000000000 --- a/httemplate/edit/process/router.cgi +++ /dev/null @@ -1,67 +0,0 @@ -<% - -local $FS::UID::AutoCommit=0; - -sub check { -  my $error = shift; -  if($error) { -    $cgi->param('error', $error); -    print $cgi->redirect(popurl(3) . "edit/router.cgi?". $cgi->query_string); -    dbh->rollback; -    exit; -  } -} - -my $error = ''; -my $routernum  = $cgi->param('routernum'); -my $routername = $cgi->param('routername'); -my $old = qsearchs('router', { routernum => $routernum }); -my @old_psr; - -my $new = new FS::router { -  map { -    ($_, scalar($cgi->param($_))); -  } fields('router') -}; - -if($old) { -  $error = $new->replace($old); -} else { -  $error = $new->insert; -  $routernum = $new->routernum; -} - -check($error); - -if ($old) { -  @old_psr = $old->part_svc_router; -  foreach my $psr (@old_psr) { -    if($cgi->param('svcpart_'.$psr->svcpart) eq 'ON') { -      # do nothing -    } else { -      $error = $psr->delete; -    } -  } -  check($error); -} - -foreach($cgi->param) { -  if($cgi->param($_) eq 'ON' and /^svcpart_(\d+)$/) { -    my $svcpart = $1; -    if(grep {$_->svcpart == $svcpart} @old_psr) { -      # do nothing -    } else { -      my $new_psr = new FS::part_svc_router { svcpart   => $svcpart, -                                              routernum => $routernum }; -      $error = $new_psr->insert; -    } -    check($error); -  } -} - - -# Yay, everything worked! -dbh->commit or die dbh->errstr; -print $cgi->redirect(popurl(3). "browse/router.cgi"); - -%>  | 
