From: ivan Date: Wed, 11 Aug 2010 00:08:50 +0000 (+0000) Subject: fix return address in welcome letters, RT#9497 X-Git-Tag: freeside_1_9_5~71 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=675bba9ce060e4bacf84ffeb94e2f7b9743dfd1a fix return address in welcome letters, RT#9497 --- diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 925d6d764..93d4a6908 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -9578,8 +9578,13 @@ sub generate_letter { $letter_data{returnaddress} = $retadd; } elsif ( grep /\S/, $conf->config('company_address', $self->agentnum) ) { $letter_data{returnaddress} = - join( '\\*'."\n", map s/( {2,})/'~' x length($1)/eg, - $conf->config('company_address', $self->agentnum) + join( "\n", map { s/( {2,})/'~' x length($1)/eg; + s/$/\\\\\*/; + $_; + } + ( $conf->config('company_name', $self->agentnum), + $conf->config('company_address', $self->agentnum), + ) ); } else { $letter_data{returnaddress} = '~';