rt/webrt/Ticket/Elements/AddWatchers

   1 <BR>
   2 <%$msg%><br>
   3
   4 Add new watchers:<br>
   5
   6 <table>
   7 % if ($Users) {
   8 <tr><td>
   9 Type
  10 </td><td>
  11 Username
  12 </td></tr>
  13 % while (my $u = $Users->Next ) {
  14 <tr><td><&/Elements/SelectWatcherType, Name => "WatcherTypeUser".$u->Id &></td><td><%$u->Name%> (<%$u->RealName%>)</td></tr>
  15 % }
  16 % }
  17
  18 <tr><td>
  19 Type
  20 </td><td>
  21 Email
  22 </td></tr>
  23 <tr><td>
  24 <&/Elements/SelectWatcherType, Name => "WatcherTypeEmail1" &>
  25 </td><td>
  26 <input name="WatcherAddressEmail1" size=15>
  27 </td></tr>
  28 <tr><td>
  29 <&/Elements/SelectWatcherType, Name => "WatcherTypeEmail2" &>
  30 </td><td>
  31 <input name="WatcherAddressEmail2" size=15>
  32 </td></tr>
  33 <tr><td>
  34 <&/Elements/SelectWatcherType, Name => "WatcherTypeEmail3" &>
  35 </td><td>
  36 <input name="WatcherAddressEmail3" size=15>
  37 </td></tr>
  38 </table>
  39
  40 <%INIT>
  41 my ($msg, $Users);
  42 if ($UserString) {
  43     $Users = new RT::Users($session{'CurrentUser'});
  44     $Users->Limit(FIELD => $UserField,
  45                  VALUE => $UserString,
  46                  OPERATOR => $UserOp);
  47      }
  48 </%INIT>
  49
  50 <%ARGS>
  51 $UserField => 'Name'
  52 $UserOp => '='
  53 $UserString => undef
  54 </%ARGS>