$hashref->{freq}
$hashref->{plan} |
$plandata |
END
my($pkg_svc);
my($n)="";
foreach $pkg_svc ( @pkg_svc ) {
my($svcpart)=$pkg_svc->getfield('svcpart');
my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
print $n,qq!!,
$part_svc->getfield('svc')," | ",
$pkg_svc->getfield('quantity')," | ";
if ( dbdef->table('pkg_svc')->column('primary_svc') ) {
print '';
print 'PRIMARY' if $pkg_svc->primary_svc =~ /^Y/i;
print ' | ';
}
print "\n";
$n="";
}
print "
";
}
$colspan = $cgi->param('showdisabled') ? 8 : 9;
print <