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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
<& /Elements/Header, Title => 'Modify people related to queue ' . $QueueObj->Name &>
<& /Admin/Elements/QueueTabs, id => $id &>
<& /Elements/ListActions, actions => \@results &>
<FORM METHOD=POST ACTION="People.html">
<INPUT TYPE=HIDDEN NAME=id VALUE="<%$QueueObj->Id%>">
<& /Elements/TitleBoxStart, title => 'Modify watchers for queue \''.$QueueObj->Name ."'", width => "100%" &>
<TABLE WIDTH=100%>
<TR>
<TD VALIGN=TOP >
<h3>Current watchers</h3>
<i>(Check box to delete)</i><br><BR>
Cc:
<ul>
%# Print out a placeholder if there are none.
%if ($cc->Count == 0 ) {
<li><i>none</i>
% }
%while (my $watcher=$cc->Next) {
<li>
<INPUT TYPE=CHECKBOX NAME="DelWatcher<%$watcher->id%>" UNCHECKED>
%# account
%if ($watcher->IsUser) {
<a href="<%$RT::WebPath%>/Admin/Users/Modify.html?id=<%$watcher->OwnerObj->id%>">
<%$watcher->OwnerObj->RealName%></a>:
%} else {
Email address:
%}
<i><%$watcher->Email%></i>
%}
</ul>
Administrative Cc:
<UL>
%# Print out a placeholder if there are none.
%if ($admincc->Count == 0 ) {
<li><i>none</i>
% }
%while (my $watcher=$admincc->Next) {
<li><INPUT TYPE=CHECKBOX NAME="DelWatcher<%$watcher->id%>" UNCHECKED>
%# account
%if ($watcher->IsUser) {
<a href="<%$RT::WebPath%>/Admin/Users/Modify.html?id=<%$watcher->OwnerObj->id%>">
<%$watcher->OwnerObj->RealName%></a>:
%} else {
Email address:
%}
<i><%$watcher->Email%></i>
%}
</UL>
</TD>
<TD VALIGN=TOP>
<h3>New watchers</h3>
Find people whose<BR>
<& /Elements/SelectUsers &>
<BR>
Add new watchers:<br>
% if ($msg) {
<i><%$msg%></i>
% } elsif ($Users) {
<ul>
% while (my $u = $Users->Next ) {
<li><&/Elements/SelectWatcherType, Scope=>'queue', Name => "WatcherTypeUser".$u->Id &> <%$u->Name%>
(<%$u->RealName%>)
% }
</ul>
% }
</TD>
</TR>
</TABLE>
<& /Elements/TitleBoxEnd &>
<& /Elements/Submit, Label => 'Save Changes', Caption => "If you've updated anything above, be sure to" &>
</form>
<%INIT>
my ($field, @results, $User, $Users, $watcher, $key, $msg);
# {{{ Load the queue
#If we get handed two ids, mason will make them an array. bleck.
# We want teh first one. Just because there's no other sensible way
# to deal
my $QueueObj = new RT::Queue($session{'CurrentUser'});
$QueueObj->Load($id) || Abort("Couldn't load queue '$id'");
# }}}
# {{{ Delete deletable watchers
foreach $key (keys %ARGS) {
if (($key =~ /^DelWatcher(\d*)$/) and
($ARGS{$key})) {
$RT::Logger->debug("Deleting watcher $1\n");
my ($code, $msg) = $QueueObj->DeleteWatcher($1);
push @results, $msg;
}
}
# }}}
# {{{ Add new watchers
foreach $key (keys %ARGS) {
#They're in this order because otherwise $1 gets clobbered :/
if ( ($ARGS{$key} =~ /^(AdminCc|Cc)$/) and
($key =~ /^WatcherTypeUser(\d*)$/) ) {
$RT::Logger->debug("Adding a watcher $1 to ".$ARGS{$key}."\n");
my ($code, $msg) =
$QueueObj->AddWatcher(Type => $ARGS{$key},
Owner => $1);
push @results, $msg;
}
}
# }}}
my $admincc = $QueueObj->AdminCc;
my $cc = $QueueObj->Cc;
if (!$ARGS{'UserString'}) {
$msg = "No users selected.";
}
else {
$Users = new RT::Users($session{'CurrentUser'});
$Users->Limit(FIELD => $ARGS{'UserField'},
VALUE => $ARGS{'UserString'},
OPERATOR => $ARGS{'UserOp'});
}
</%INIT>
<%ARGS>
$UserField => 'Name'
$UserOp => '='
$UserString => undef
$Type => undef
$id => undef
</%ARGS>
|
