X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Fcommunigate_pro.pm;h=2cad24467c0f6d5d144d06107e307cfa3cbd3e40;hb=d311f62f655dc5cad8b9319f07f8c0e6bf344cc2;hp=3d7d76ce3a0cbab1feeafbb5aab8fee1af9ff071;hpb=b80e90fc31364d7cad415d4c236c8429ec7c1e00;p=freeside.git diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm index 3d7d76ce3..2cad24467 100644 --- a/FS/FS/part_export/communigate_pro.pm +++ b/FS/FS/part_export/communigate_pro.pm @@ -828,12 +828,12 @@ sub _pretty { if ( ref($value) eq 'ARRAY' ) { '['. join(' ', map { ref($_) ? _pretty($_) : $_ } @$value ). ']'; } elsif ( ref($value) eq 'HASH' ) { - my $hv = $value->{$_}; - join(', ', map { my $v = $value->{$_}; - "$_:". ref($v) ? _pretty($v) : $_ - } - keys %$value - ); + '{'. join(', ', + map { my $v = $value->{$_}; + "$_:". ( ref($v) ? _pretty($v) : $v ); + } + keys %$value + ). '}'; } else { warn "serializing ". ref($value). " for table display not yet handled"; }