diff options
| author | ivan <ivan> | 2004-05-10 10:01:38 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-05-10 10:01:38 +0000 |
| commit | 38606efd583311cff2703090d7c9e3de550522b1 (patch) | |
| tree | 4309e7fda0b1a5f5432e0249e72200346a2f41de /bin/sendmail.import | |
| parent | cd7e487f34c2de4768670aef01f096d8530fb057 (diff) | |
properly nested greps
Diffstat (limited to 'bin/sendmail.import')
| -rw-r--r-- | bin/sendmail.import | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/sendmail.import b/bin/sendmail.import index b137433..ef745fc 100644 --- a/bin/sendmail.import +++ b/bin/sendmail.import @@ -144,7 +144,9 @@ sub svcnum_or_literal { 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, |