<BR>
<%$msg%><br>

Add new watchers:<br>

<table>
% if ($Users) {
<tr><td>
Type
</td><td>
Username
</td></tr>
% while (my $u = $Users->Next ) {
<tr><td><&/Elements/SelectWatcherType, Name => "WatcherTypeUser".$u->Id &></td><td><%$u->Name%> (<%$u->RealName%>)</td></tr>
% }
% }

<tr><td>
Type
</td><td>
Email
</td></tr>
<tr><td>
<&/Elements/SelectWatcherType, Name => "WatcherTypeEmail1" &>
</td><td>
<input name="WatcherAddressEmail1" size=15>
</td></tr>
<tr><td>
<&/Elements/SelectWatcherType, Name => "WatcherTypeEmail2" &> 
</td><td>
<input name="WatcherAddressEmail2" size=15>
</td></tr>
<tr><td>
<&/Elements/SelectWatcherType, Name => "WatcherTypeEmail3" &>
</td><td>
<input name="WatcherAddressEmail3" size=15>
</td></tr>
</table>

<%INIT>
my ($msg, $Users);
if ($UserString) {
    $Users = new RT::Users($session{'CurrentUser'});
    $Users->Limit(FIELD => $UserField,
                 VALUE => $UserString,
                 OPERATOR => $UserOp);
     }
</%INIT>

<%ARGS>
$UserField => 'Name'
$UserOp => '='
$UserString => undef
</%ARGS>
