rt/html/Ticket/Elements/EditCustomers

   1 %# Copyright (c) 2004 Ivan Kohler <ivan-rt@420.am>
   2 %#
   3 %# This work is made available to you under the terms of Version 2 of
   4 %# the GNU General Public License. A copy of that license should have
   5 %# been provided with this software, but in any event can be snarfed
   6 %# from www.gnu.org.
   7 %#
   8 %# This work is distributed in the hope that it will be useful, but
   9 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  10 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 %# General Public License for more details.
  12 <TABLE width=100%>
  13   <TR>
  14     <TD VALIGN=TOP WIDTH=50%>
  15       <h3><&|/l&>Current Customers</&></h3>
  16
  17 <table>
  18   <tr>
  19     <td><i><&|/l&>(Check box to disassociate)</&></i></td>
  20   </tr>
  21   <tr>
  22     <td class="value">
  23 % #while (my $link = $Ticket->MemberOf->Next) {
  24 % foreach my $link (
  25 %   grep { $_->TargetURI->Resolver->{'fstable'} eq 'cust_main' }
  26 %   grep { $_->TargetURI->Scheme eq 'freeside' }
  27 %        @{ $Ticket->_Links('Base')->ItemsArrayRef }
  28 % ) {
  29
  30       <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
  31 %#        <& ShowLink, URI => $link->TargetURI &><br>
  32         <A HREF="<% $link->TargetURI->Resolver->HREF %>"><% $link->TargetURI->Resolver->AsStringLong |n %>
  33       <BR>
  34 % }
  35     </td>
  36   </tr>
  37 </table>
  38
  39 </TD>
  40
  41 <TD VALIGN=TOP>
  42 <h3><&|/l&>New Customer Links</&></h3>
  43 <&|/l&>Find customer</&><BR>
  44 <input name="CustomerString">
  45 <input type=submit name="OnlySearchForCustomers" value="<&|/l&>Go!</&>">
  46 <br><i>cust #, last name, or company</i>
  47 <BR>
  48 %#<BR>
  49 %#<&|/l&>Find service</&><BR>
  50 %#<input name="ServiceString">
  51 %#<input type=submit name="OnlySearchForServices" value="<&|/l&>Go!</&>">
  52 %#<br><i>username, username@domain, domain, or IP address</i>
  53 %#<BR>
  54
  55 <& AddCustomers, Ticket         => $Ticket,
  56                  CustomerString => $CustomerString,
  57                  ServiceString  => $ServiceString,  &>
  58
  59 </TD>
  60 </TR>
  61 </TABLE>
  62
  63 <%ARGS>
  64 $CustomerString => undef
  65 $ServiceString => undef
  66 $Ticket => undef
  67 </%ARGS>