<%
foreach my $part_pkg ( sort $sortby @part_pkg ) {
- my(@pkg_svc)=grep $_->getfield('quantity'),
- qsearch( 'pkg_svc', { 'pkgpart' => $part_pkg->pkgpart } );
+ my @pkg_svc = $part_pkg->pkg_svc;
my($rowspan)=scalar(@pkg_svc);
my $plandata;
if ( $part_pkg->plan ) {
<TD ROWSPAN=<%= $rowspan %>><%= $plandata %></TD>
<%
- my($pkg_svc);
my($n)="";
- foreach $pkg_svc ( @pkg_svc ) {
+ foreach my $pkg_svc ( @pkg_svc ) {
my($svcpart)=$pkg_svc->getfield('svcpart');
my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
print $n,qq!<TD><A HREF="${p}edit/part_svc.cgi?$svcpart">!,