6 local $FS::UID::AutoCommit=0;
11 $cgi->param('error', $error);
12 print $cgi->redirect(popurl(3) . "edit/router.cgi?". $cgi->query_string);
19 my $routernum = $cgi->param('routernum');
20 my $routername = $cgi->param('routername');
21 my $old = qsearchs('router', { routernum => $routernum });
25 my $new = new FS::router {
26 routernum => $routernum,
27 routername => $routername,
32 if($old->routername ne $new->routername) {
33 $error = $new->replace($old);
36 $error = $new->insert;
42 @old_psr = $old->part_svc_router;
43 foreach $psr (@old_psr) {
44 if($cgi->param('svcpart_'.$psr->svcpart) eq 'ON') {
47 $error = $psr->delete;
51 @old_rf = $old->router_field;
52 foreach $rf (@old_rf) {
53 if(my $new_val = $cgi->param('rf_'.$rf->routerfieldpart)) {
54 if($new_val ne $rf->value) {
55 my $new_rf = new FS::router_field
56 { routernum => $routernum,
58 routerfieldpart => $rf->routerfieldpart };
59 $error = $new_rf->replace($rf);
68 foreach($cgi->param) {
69 if($cgi->param($_) eq 'ON' and /^svcpart_(\d+)$/) {
71 if(grep {$_->svcpart == $svcpart} @old_psr) {
74 my $new_psr = new FS::part_svc_router { svcpart => $svcpart,
75 routernum => $routernum };
76 $error = $new_psr->insert;
79 } elsif($cgi->param($_) ne '' and /^rf_(\d+)$/) {
81 if(my @x = grep {$_->routerfieldpart == $part} @old_rf) {
82 # already handled all of these
84 my $new_rf = new FS::router_field
85 { routernum => $routernum,
86 value => $cgi->param('rf_'.$part),
87 routerfieldpart => $part };
88 $error = $new_rf->insert;
96 # Yay, everything worked!
97 $dbh->commit or die $dbh->errstr;
98 print $cgi->redirect(popurl(3). "edit/router.cgi?$routernum");