<%

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");

%>