From 88f0ff8531750c6eafd0495b7bbdc440d78db379 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 19 Jun 2002 04:03:15 +0000
Subject: [PATCH] fix setContactField email

---
 FS/FS/part_export/infostreet.pm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/FS/FS/part_export/infostreet.pm b/FS/FS/part_export/infostreet.pm
index 40dee487a..e6d68c1e2 100644
--- a/FS/FS/part_export/infostreet.pm
+++ b/FS/FS/part_export/infostreet.pm
@@ -32,11 +32,16 @@ sub _export_insert {
     return $error if $error;
   }
 
-  $self->infostreet_queue( $svc_acct->svcnum,
-    'setContactField', $accountID, 'email', $cust_main->invoicing_list )
+  my @emails = grep { $_ ne 'POST' } $cust_main->invoicing_list;
+  if ( @emails ) {
+    my $error = $self->infostreet_queue( $svc_acct->svcnum,
+      'setContactField', $accountID, 'email', $emails[0] );
+    return $error if $error;
+  }
+
   #this one is kinda noment-specific
-  || $self->infostreet_queue( $svc_acct->svcnum,
-         'setContactField', $accountID, 'title', $cust_main->agent->agent );
+  $self->infostreet_queue( $svc_acct->svcnum,
+    'setContactField', $accountID, 'title', $cust_main->agent->agent );
 
 }
 
-- 
2.11.0