blob: b7e4df454eeb5953cb674c35f785cfb7c77b79d9 (
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
|
% if ($success) {
<% include('/elements/header-popup.html', 'Reason Merge Success') %>
<SCRIPT>
topreload()
</SCRIPT>
% } else {
<% include('/elements/header-popup.html', 'Merge Reasons') %>
% if ($error) {
<P STYLE="color: red;"><% emt($error) %></P>
% }
% if (@reasons > 1) {
<P>
The following reasons will be merged into one.
Please select one reason to merge the others into.
</P>
<FORM METHOD="POST" ACTION="<% "${p}misc/reason-merge.html" %>">
<P>
% foreach my $reason (@reasons) {
<INPUT TYPE="hidden" NAME="reasonnum" VALUE="<% $reason->reasonnum %>">
<INPUT TYPE="radio" NAME="destreasonnum" VALUE="<% $reason->reasonnum %>">
<% $reason->reason %><BR>
% }
<P>
<P>Caution: merging reasons cannot be undone!</P>
<P><INPUT TYPE="submit" NAME="process_merge" value="Merge"></P>
</FORM>
% } else {
<BUTTON TYPE="button" onClick="parent.cClick();">Close</BUTTON>
% }
% }
<%init>
my @reasonnums = $cgi->param('reasonnum');
my $destreasonnum = $cgi->param('destreasonnum');
my $error;
my $class;
my @reasons;
my $destreason;
foreach my $reasonnum (@reasonnums) {
unless ($reasonnum =~ /^\d+$/) {
$error = "Invalid reasonnum $reasonnum.";
last;
}
my $reason = qsearchs('reason',{ 'reasonnum' => $reasonnum });
unless ($reason) {
$error = "Reason $reasonnum could not be loaded.";
last;
}
my $reasontype = $reason->reasontype;
$class ||= $reasontype->class;
if ($class ne $reasontype->class) {
$error = "Selected reasons must have the same reason type class.";
last;
}
push(@reasons, $reason);
$destreason = $reason if $reasonnum eq $destreasonnum;
}
unless ($error) {
$error = "No reasons selected." unless @reasons;
$error = "Select two or more reasons to merge." unless @reasons > 1;
}
@reasons = () if $error;
my $success = 0;
if ($cgi->param('process_merge') && !$error) {
if ($destreason) {
$error = $destreason->merge(\@reasons);
$success = 1 unless $error;
} else {
$error = "No destination reason selected.";
}
}
</%init>
|
