3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
5 %# (Except where explictly superceded by other copyright notices)
7 %# This work is made available to you under the terms of Version 2 of
8 %# the GNU General Public License. A copy of that license should have
9 %# been provided with this software, but in any event can be snarfed
12 %# This work is distributed in the hope that it will be useful, but
13 %# WITHOUT ANY WARRANTY; without even the implied warranty of
14 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 %# General Public License for more details.
17 %# Unless otherwise specified, all modifications, corrections or
18 %# extensions to this work which alter its source code become the
19 %# property of Best Practical Solutions, LLC when submitted for
20 %# inclusion in the work.
27 <&|/l&>Add new watchers</&>:<br>
30 % if ($Users and $Users->Count) {
36 % while (my $u = $Users->Next ) {
37 <tr><td><&/Elements/SelectWatcherType, Name => "Ticket-AddWatcher-Principal-".$u->PrincipalId &></td><td><%$u->Name%> (<%$u->RealName%>)</td></tr>
41 % if ($Groups and $Groups->Count) {
47 % while (my $g = $Groups->Next ) {
48 <tr><td><&/Elements/SelectWatcherType, Name => "Ticket-AddWatcher-Principal-".$g->PrincipalId, Scope => 'queue' &></td><td><%$g->Name%> (<%$g->Description%>)</td></tr>
58 <&/Elements/SelectWatcherType, Name => "WatcherTypeEmail1" &>
60 <input name="WatcherAddressEmail1" size=15>
63 <&/Elements/SelectWatcherType, Name => "WatcherTypeEmail2" &>
65 <input name="WatcherAddressEmail2" size=15>
68 <&/Elements/SelectWatcherType, Name => "WatcherTypeEmail3" &>
70 <input name="WatcherAddressEmail3" size=15>
75 my ($msg, $Users, $Groups);
78 $Users = RT::Users->new($session{'CurrentUser'});
79 $Users->Limit(FIELD => $UserField, VALUE => $UserString, OPERATOR => $UserOp);
83 $Groups = RT::Groups->new($session{'CurrentUser'});
84 $Groups->Limit(FIELD => 'Domain', OPERATOR => '=', VALUE => 'UserDefined');
85 $Groups->Limit(FIELD => $GroupField, VALUE => $GroupString, OPERATOR => $GroupOp);