tiny patch: use method, not qsearch, for package's services

[Ricardo SIGNES]

Attached is a tiny little patch to httemplate/browse/part_pkg.cgi.  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.

-- 
rjbs
-------------- next part --------------
--- sisd/httemplate/browse/part_pkg.cgi	2004-10-26 07:26:34.000000000 -0400
+++ icg/httemplate/browse/part_pkg.cgi	2005-05-26 12:36:51.000000000 -0400
@@ -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 ) {