diff options
| -rw-r--r-- | FS/FS/part_export/infostreet.pm | 13 |
1 files 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 ); } |