diff options
Diffstat (limited to 'lib/Fripost/Schema/Domain.pm')
-rw-r--r-- | lib/Fripost/Schema/Domain.pm | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/lib/Fripost/Schema/Domain.pm b/lib/Fripost/Schema/Domain.pm index 6ed22b6..3caffb5 100644 --- a/lib/Fripost/Schema/Domain.pm +++ b/lib/Fripost/Schema/Domain.pm @@ -2,7 +2,7 @@ package Fripost::Schema::Domain; =head1 NAME -Domain.pm - Domain related methods in the Fripost Schema +Domain.pm - Domainpart related methods for the Fripost Schema =head1 DESCRIPTION @@ -31,7 +31,7 @@ use Template; =head1 REPRESENTATION -Domains are imported and exported as hash references, having the +Domains are imported and exported as hash references, with the following keys: =over 4 @@ -44,6 +44,10 @@ A UTF-8 string representing the (internationalized) domain name. Whether or not the domain is active. +=item B<description> + +An array reference containing UTF-8 strings describing the domain. + =item B<isPending> => 0|1 Whether or not the domain is pending. This is key is ignored when adding @@ -79,10 +83,6 @@ An optional array reference containing the (internationalized) catch-alls for that domain. Localparts may be left empty for domain aliases. -=item B<description> - -An array reference containing UTF-8 string representing that domain. - =item B<permissions> An optional string representing the permission of the current user @@ -154,10 +154,10 @@ current user to read or even search anything, though. The default is to retrieve every visible attribute, unless in void context where B<-keys> is set to [] that is, no attribute is sent back to the client. -=item B<-count> +=item B<-count> => 0|1 -Returns the number of entries in the result set. The B<-keys> option is -bypassed not to ask any attribute from the server. +Return the number of entries in the result set. When set, the B<-keys> +option is bypassed not to ask any attribute from the server. =item B<-sort> => 0|1 @@ -285,9 +285,7 @@ sub _entries_to_domains { } # Add a 'permissions' key if wanted. - if ((not @$keys or grep { $_ eq 'permissions' } @$keys) and - grep { $entry->exists($_) } qw/fripostCanAddAlias fripostCanAddList - fripostOwner fripostPostmaster/) { + if ((not @$keys or grep { $_ eq 'permissions' } @$keys)) { my $perms = ''; $perms .= 'a' if $entry->exists('fripostCanAddAlias') and grep { $user eq lc $_ or $parent eq lc $_ } |