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 ( @error ) {
<& /elements/errorpage-popup.html, @error &>
% } else {
<& /elements/header-popup.html, "Template ${actioned}" &>
<SCRIPT TYPE="text/javascript">
topreload();
</SCRIPT>
</BODY>
</HTML>
% }
<%init>
my $curuser = $FS::CurrentUser::CurrentUser;
my $conf = FS::Conf->new;
my @error;
my $actioned;
die "access denied"
unless $curuser->access_right([ 'Edit templates', 'Edit global templates' ]);
my $msgnum = $cgi->param('msgnum');
$msgnum =~ /^\d+$/ or die "bad msgnum '$msgnum'";
my $msg_template = qsearchs({
table => 'msg_template',
hashref => { msgnum => $msgnum },
extra_sql => ' AND '.
$curuser->agentnums_sql(null_right => 'Edit global templates'),
});
die "unknown msgnum $msgnum" unless $msg_template;
if ( $cgi->param('enable') ) {
$actioned = 'enabled';
$msg_template->set('disabled' => '');
} else {
$actioned = 'disabled';
# make sure it's not in use anywhere
my @inuse;
# notice, letter, notice_to events (if they're enabled)
my @events = qsearch({
table => 'part_event_option',
addl_from => ' JOIN part_event USING (eventpart)',
hashref => {
optionname => 'msgnum',
optionvalue => $msgnum,
},
extra_sql => ' AND disabled IS NULL',
});
push @inuse, map {"Billing event #".$_->eventpart} @events;
# send_email and rt_ticket exports
my @exports = qsearch( 'part_export_option', {
optionname => { op => 'LIKE', value => '%_template' },
optionvalue => $msgnum,
});
push @inuse, map {"Export #".$_->exportnum} @exports;
# payment_receipt_msgnum, decline_msgnum, etc.
my @confs = qsearch( 'conf', {
name => { op => 'LIKE', value => '%_msgnum' },
value => $msgnum,
});
push @inuse, map {"Configuration setting ".$_->name} @confs;
# XXX pending queue jobs?
if (@inuse) {
@error = ("This template is in use. Check the following settings:",
@inuse);
}
# good to go
$msg_template->set(disabled => 'Y');
}
if (!@error) {
my $error = $msg_template->replace;
push @error, $error if $error;
}
</%init>
|
