diff options
| -rw-r--r-- | perl/Wallet/Object/Base.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl/Wallet/Object/Base.pm b/perl/Wallet/Object/Base.pm index 0980aed..566dbfd 100644 --- a/perl/Wallet/Object/Base.pm +++ b/perl/Wallet/Object/Base.pm @@ -323,6 +323,12 @@ sub show { my $output = ''; for (my $i = 0; $i < @data; $i++) { next unless defined $data[$i]; + if ($attrs[$i][0] =~ /^ob_acl_/) { + my $acl = eval { Wallet::ACL->new ($data[$i], $self->{dbh}) }; + if ($acl and not $@) { + $data[$i] = $acl->name || $data[$i]; + } + } $output .= sprintf ("%15s: %s\n", $attrs[$i][1], $data[$i]); } return $output; |