freeside/bin sendmail.import,1.5,1.6

[ivan]

Update of /home/cvs/cvsroot/freeside/bin
In directory pouncequick:/tmp/cvs-serv14310

Modified Files:
	sendmail.import 
Log Message:
properly nested greps

Index: sendmail.import
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/sendmail.import,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- sendmail.import	10 May 2004 09:59:06 -0000	1.5
+++ sendmail.import	10 May 2004 10:01:38 -0000	1.6
@@ -144,7 +144,9 @@
   my $svc_domain = qsearchs('svc_domain', { 'domain' => $domain } );
   my $domsvc = $svc_domain ? $svc_domain->svcnum : '';
 
-  my @svc_acct = grep { grep { $_->cust_svc->svcpart == $_ } @svcpart }
+  my @svc_acct = grep { my $svc_acct = $_;
+                        grep { $svc_acct->cust_svc->svcpart == $_ } @svcpart
+                      }
                    qsearch('svc_acct', {
                      'username' => $username,
                      'domsvc'   => $domsvc,