diff options
| author | ivan <ivan> | 2010-08-04 01:15:52 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-08-04 01:15:52 +0000 |
| commit | f07fc98b146cdaa5861d766cc7c84ea0136f38ec (patch) | |
| tree | 4eb5d9d83e5741f5b2c6c555ff4e7ef680bf281b /FS/FS/part_export/communigate_pro.pm | |
| parent | f936f59edf460c72f4e4c4da4d701b99f4456890 (diff) | |
better serialization on debugging data, RT#7514
Diffstat (limited to 'FS/FS/part_export/communigate_pro.pm')
| -rw-r--r-- | FS/FS/part_export/communigate_pro.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm index 3ac0dfd..76fd608 100644 --- a/FS/FS/part_export/communigate_pro.pm +++ b/FS/FS/part_export/communigate_pro.pm @@ -732,7 +732,11 @@ sub export_getsettings_svc_domain { { my $value = $effective_settings->{$key}; if ( ref($value) eq 'ARRAY' ) { - $effective_settings->{$key} = join(' ', @$value); + $effective_settings->{$key} = + join(' ', map { ref($_) ? '['.join(', ', @$_).']' : $_ } @$value ); + } elsif ( ref($value) eq 'HASH' ) { + $effective_settings->{$key} = + join(', ', map { "$_:".$value->{$_} } keys %$value ); } else { #XXX warn "serializing ". ref($value). " for table display not yet handled"; @@ -821,7 +825,11 @@ sub export_getsettings_svc_acct { { my $value = $effective_settings->{$key}; if ( ref($value) eq 'ARRAY' ) { - $effective_settings->{$key} = join(' ', @$value); + $effective_settings->{$key} = + join(' ', map { ref($_) ? '['.join(', ', @$_).']' : $_ } @$value ); + } elsif ( ref($value) eq 'HASH' ) { + $effective_settings->{$key} = + join(', ', map { "$_:".$value->{$_} } keys %$value ); } else { #XXX warn "serializing ". ref($value). " for table display not yet handled"; |