httemplate/edit/process/router.cgi

   1 <%
   2
   3 local $FS::UID::AutoCommit=0;
   4
   5 sub check {
   6   my $error = shift;
   7   if($error) {
   8     $cgi->param('error', $error);
   9     print $cgi->redirect(popurl(3) . "edit/router.cgi?". $cgi->query_string);
  10     dbh->rollback;
  11     exit;
  12   }
  13 }
  14
  15 my $error = '';
  16 my $routernum  = $cgi->param('routernum');
  17 my $routername = $cgi->param('routername');
  18 my $old = qsearchs('router', { routernum => $routernum });
  19 my @old_psr;
  20
  21 my $new = new FS::router {
  22   map {
  23     ($_, scalar($cgi->param($_)));
  24   } fields('router')
  25 };
  26
  27 if($old) {
  28   $error = $new->replace($old);
  29 } else {
  30   $error = $new->insert;
  31   $routernum = $new->routernum;
  32 }
  33
  34 check($error);
  35
  36 if ($old) {
  37   @old_psr = $old->part_svc_router;
  38   foreach my $psr (@old_psr) {
  39     if($cgi->param('svcpart_'.$psr->svcpart) eq 'ON') {
  40       # do nothing
  41     } else {
  42       $error = $psr->delete;
  43     }
  44   }
  45   check($error);
  46 }
  47
  48 foreach($cgi->param) {
  49   if($cgi->param($_) eq 'ON' and /^svcpart_(\d+)$/) {
  50     my $svcpart = $1;
  51     if(grep {$_->svcpart == $svcpart} @old_psr) {
  52       # do nothing
  53     } else {
  54       my $new_psr = new FS::part_svc_router { svcpart   => $svcpart,
  55                                               routernum => $routernum };
  56       $error = $new_psr->insert;
  57     }
  58     check($error);
  59   }
  60 }
  61
  62
  63 # Yay, everything worked!
  64 dbh->commit or die dbh->errstr;
  65 print $cgi->redirect(popurl(3). "browse/router.cgi");
  66
  67 %>