blob: 1b7fc3805ad54835571d84a0d3a18197be91800e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
<%
use FS::UID qw(dbh);
my $dbh = dbh;
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_rf;
my @old_psr;
my $new = new FS::router {
routernum => $routernum,
routername => $routername,
svcnum => 0
};
if($old) {
if($old->routername ne $new->routername) {
$error = $new->replace($old);
} #else do nothing
} else {
$error = $new->insert;
$routernum = $new->routernum;
}
check($error);
if ($old) {
@old_psr = $old->part_svc_router;
foreach $psr (@old_psr) {
if($cgi->param('svcpart_'.$psr->svcpart) eq 'ON') {
# do nothing
} else {
$error = $psr->delete;
}
}
check($error);
@old_rf = $old->router_field;
foreach $rf (@old_rf) {
if(my $new_val = $cgi->param('rf_'.$rf->routerfieldpart)) {
if($new_val ne $rf->value) {
my $new_rf = new FS::router_field
{ routernum => $routernum,
value => $new_val,
routerfieldpart => $rf->routerfieldpart };
$error = $new_rf->replace($rf);
} #else do nothing
} else {
$error = $rf->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);
} elsif($cgi->param($_) ne '' and /^rf_(\d+)$/) {
my $part = $1;
if(my @x = grep {$_->routerfieldpart == $part} @old_rf) {
# already handled all of these
} else {
my $new_rf = new FS::router_field
{ routernum => $routernum,
value => $cgi->param('rf_'.$part),
routerfieldpart => $part };
$error = $new_rf->insert;
check($error);
}
}
}
# Yay, everything worked!
$dbh->commit or die $dbh->errstr;
print $cgi->redirect(popurl(3). "browse/router.cgi");
%>
|
