From 9788b10d423bb3e4c16989b08bcce6f1a78f3d89 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 9 Jun 2005 20:26:08 +0000
Subject: [PATCH] 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.

---
 httemplate/browse/part_pkg.cgi | 3 +--
 1 file changed, 1 insertion(+), 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 ) {
-- 
2.11.0