freeside/FS/FS cust_svc.pm,1.41,1.42 part_pkg.pm,1.24,1.25

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv19484

Modified Files:
	cust_svc.pm part_pkg.pm 
Log Message:
tyop;

Index: cust_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_svc.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- cust_svc.pm	10 Jul 2004 13:08:33 -0000	1.41
+++ cust_svc.pm	10 Jul 2004 14:30:59 -0000	1.42
@@ -11,7 +11,7 @@
 use FS::svc_acct;
 use FS::svc_domain;
 use FS::svc_forward;
-use FS::svc_broadband
+use FS::svc_broadband;
 use FS::svc_external;
 use FS::domain_record;
 use FS::part_export;

Index: part_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- part_pkg.pm	31 Jan 2004 06:33:39 -0000	1.24
+++ part_pkg.pm	10 Jul 2004 14:30:59 -0000	1.25
@@ -262,7 +262,9 @@
 
 sub pkg_svc {
   my $self = shift;
-  grep { $_->quantity } qsearch( 'pkg_svc', { 'pkgpart' => $self->pkgpart } );
+  #sort { $b->primary cmp $a->primary } 
+    grep { $_->quantity }
+      qsearch( 'pkg_svc', { 'pkgpart' => $self->pkgpart } );
 }
 
 =item svcpart [ SVCDB ]