$hashref->{freq}
$hashref->{plan} |
$plandata |
@@ -81,9 +144,14 @@ END
my($svcpart)=$pkg_svc->getfield('svcpart');
my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
print $n,qq!!,
- $part_svc->getfield('svc'),"",
- (($hashref->{def_svcpart} == $svcpart) ? "* | " : " | "),
- $pkg_svc->getfield('quantity')," | \n";
+ $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="";
}
@@ -92,10 +160,14 @@ END
$colspan = $cgi->param('showdisabled') ? 8 : 9;
print <Add a new package definition |
+
-  * - Default service