1 %# Copyright (c) 2004 Ivan Kohler <ivan-rt@420.am>
2 %# Copyright (c) 2008 Freeside Internet Services, Inc.
4 %# This work is made available to you under the terms of Version 2 of
5 %# the GNU General Public License. A copy of that license should have
6 %# been provided with this software, but in any event can be snarfed
9 %# This work is distributed in the hope that it will be useful, but
10 %# WITHOUT ANY WARRANTY; without even the implied warranty of
11 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 %# General Public License for more details.
15 <TD VALIGN=TOP WIDTH=50% ROWSPAN=3>
16 <h3><&|/l&>Current Customers</&></h3>
20 <td><i><&|/l&>(Check box to disassociate)</&></i></td>
24 % foreach my $link ( @{ $Ticket->Customers->ItemsArrayRef } ) {
26 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
27 %# <& ShowLink, URI => $link->TargetURI &><br>
28 <% $link->TargetURI->Resolver->AsStringLong |n %></A>
37 <TD VALIGN=TOP WIDTH=50% COLSPAN=2>
38 <h3><&|/l&>New Customer Links</&></h3>
44 <&|/l&>Find customer</&><br>
45 <input name="CustomerString">
46 <input type=submit name="OnlySearchForCustomers" value="<&|/l&>Go!</&>">
47 <br><i>cust #, name, company or phone</i>
50 <&|/l&>Find service</&><br>
51 <input name="ServiceString">
52 <input type=submit name="OnlySearchForServices" value="<&|/l&>Go!</&>">
53 <br><i>user, email, ip, mac, phone</i>
59 <& AddCustomers, Ticket => $Ticket,
60 CustomerString => $CustomerString,
61 ServiceString => $ServiceString &>
67 $CustomerString => undef
68 $ServiceString => undef