freeside/httemplate/browse part_pkg.cgi,1.27,1.28

[Ivan Kohler]

Update of /home/cvs/cvsroot/freeside/httemplate/browse
In directory pouncequick:/tmp/cvs-serv22242

Modified Files:
	part_pkg.cgi 
Log Message:
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.

Index: part_pkg.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/browse/part_pkg.cgi,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- part_pkg.cgi	26 Oct 2004 11:26:34 -0000	1.27
+++ part_pkg.cgi	9 Jun 2005 20:26:08 -0000	1.28
@@ -89,8 +89,7 @@
 
 <%
 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 ) {