{
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";
{
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";