1 %# Copyright (c) 2004 Ivan Kohler <ivan-rt@420.am>
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
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.
14 % foreach my $customerURI (
15 % grep { $_->Resolver->{'fstable'} eq 'cust_main' }
16 % grep { $_->Scheme eq 'freeside' }
17 % map { $_->TargetURI }
18 % @{ $Ticket->_Links('Base')->ItemsArrayRef }
24 <A HREF="<% $customerURI->Resolver->HREF %>"><% $customerURI->Resolver->AsStringLong |n %></A>