tiny refactor patch from rjbs: It changes the service listing to use $part_pkg->pkg_svc instead of a qsearch, which means that the listing will still work if pkg_svc has been subclassed.

1 files changed, 1 insertions, 2 deletions

diff --git a/httemplate/browse/part_pkg.cgi b/httemplate/browse/part_pkg.cgi
index 48b0ab2b3..ffa0d87c2 100755
--- a/httemplate/browse/part_pkg.cgi
+++ b/httemplate/browse/part_pkg.cgi
@@ -89,8 +89,7 @@ my $taxclasses = $conf->exists('enable_taxclasses');
 
 <%
 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 ) {