From: ivan <ivan>
Date: Thu, 9 Jun 2005 20:26:08 +0000 (+0000)
Subject: tiny refactor patch from rjbs: It changes the service listing to use $part_pkg->pkg_s... 
X-Git-Tag: SQL_LEDGER_2_4_4~1^2~240
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=9788b10d423bb3e4c16989b08bcce6f1a78f3d89;p=freeside.git

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.
---

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 ) {