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 $_ }