$hashref->{freq}
$hashref->{plan} |
$plandata |
@@ -82,17 +145,29 @@ END
my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
print $n,qq!!,
$part_svc->getfield('svc')," | ",
- $pkg_svc->getfield('quantity')," | \n";
+ $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 <param('showdisabled') ? 8 : 9 %>>Add a new package definition |
+