rt/webrt/Ticket/Elements/EditWatchers

   1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Elements/Attic/EditWatchers,v 1.1 2002-08-12 06:17:09 ivan Exp $
   2 %# Copyright 1996-2000 Jesse Vincent <jesse@fsck.com>
   3
   4 <ul>
   5
   6 %# Print out a placeholder if there are none.
   7 %if ($watchers->Count == 0 ) {
   8 <li><i>none</i>
   9 % }
  10
  11
  12 %while (my $watcher=$watchers->Next) {
  13 <li>
  14 <INPUT TYPE=CHECKBOX NAME="DelWatcher<%$watcher->id%>" UNCHECKED>
  15 %#If there's a principal backing this user, lets give a link to their
  16 %# account
  17 %if ($watcher->IsUser) {
  18 <a href="<%$RT::WebPath%>/Admin/Users/Modify.html?id=<%$watcher->OwnerObj->id%>">
  19 <%$watcher->OwnerObj->RealName%></a>:
  20 %} else {
  21 Email address:
  22 %}
  23 <i><%$watcher->Email%></i>
  24 %}
  25 </ul>
  26 <%INIT>
  27 my ($watchers, $watcher, $set);
  28 if ($Type  =~ /^request/i) {
  29        $watchers = $TicketObj->Requestors;
  30        }
  31 elsif ($Type =~ /^admin/i) {
  32         $watchers = $TicketObj->AdminCc;
  33         }
  34 elsif ($Type =~ /^cc/i) {
  35         $watchers = $TicketObj->Cc;
  36       }
  37 else { $watchers = $TicketObj->Watchers;
  38        }
  39 </%INIT>
  40 <%ARGS>
  41 $TicketObj => undef
  42 $Type => undef
  43 </%ARGS>
  44
  45
  46