-
+ |
$hashref->{pkgpart}
|
- $hashref->{pkg} |
+ $hashref->{pkg} |
$hashref->{comment} |
$hashref->{setup} |
$hashref->{freq} |
@@ -71,7 +92,7 @@ END
foreach $pkg_svc ( @pkg_svc ) {
my($svcpart)=$pkg_svc->getfield('svcpart');
my($part_svc) = qsearchs('part_svc',{'svcpart'=> $svcpart });
- print $n,qq!!,
+ print $n,qq! | !,
$part_svc->getfield('svc')," | ",
$pkg_svc->getfield('quantity')," | \n";
$n="";
@@ -81,7 +102,8 @@ END
}
print <
+ Add new package |
+