Add managed Friends network, allowing a designated group to add and remove

friends from each other groups.
This commit is contained in:
Colin Kuskie 2009-05-14 02:25:36 +00:00
commit 535621e8b6
7 changed files with 80 additions and 18 deletions

View file

@ -98,18 +98,22 @@ WebGUI::User object to test against. Defaults to the current user.
sub canRead {
my $self = shift;
my $session = $self->session;
my $message = shift;
my $user = shift || $self->session->user;
my $user = shift || $session->user;
unless (ref $message eq "WebGUI::Inbox::Message") {
$self->session->log->warn("Message passed in was either empty or not a valid WebGUI::Inbox::Message. Got: ".(ref $message));
$session->log->warn("Message passed in was either empty or not a valid WebGUI::Inbox::Message. Got: ".(ref $message));
return 0
}
my $userId = $message->get("userId");
my $userId = $message->get("userId");
my $groupId = $message->get("groupId");
return ($user->userId eq $userId || (defined $groupId && $user->isInGroup($groupId)));
return ($user->userId eq $userId
|| (defined $groupId && $user->isInGroup($groupId))
|| ($user->isInGroup($session->setting->get('groupIdAdminUser')))
);
}