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.
13 my %data = $m->comp('Customers', Ticket => $Ticket);
21 % foreach my $custnum (@{ $data{custnums} }) {
22 % my $cust = $data{cust_main}{$custnum};
25 <% $cust->AsStringLong |n %>
26 % foreach my $svc ( @{ $data{cust_svc}{$custnum} || [] } ) {
27 <% $svc->ShortLink |n %>
34 % unless ( @{ $data{custnums} } ) {