oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove extra whitespace that was interfering with POD parsing.

Browse source
This commit is contained in:
Colin Kuskie 2007-10-24 22:15:51 +00:00
parent 9ac39f6f9d
commit 383a0ea632
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lib/WebGUI/User.pm
View file

@ -98,7 +98,7 @@ sub addToGroups {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 acceptsPrivateMessages ( userId ) =head2 acceptsPrivateMessages ( userId )
Returns a boolean of whether or not the user can receive private messages from the user passed in Returns a boolean of whether or not the user can receive private messages from the user passed in
@ -106,25 +106,25 @@ Returns a boolean of whether or not the user can receive private messages from t
=head3 userId =head3 userId
userId to determine if the user accepts private messages from userId to determine if the user accepts private messages from
=cut =cut
sub acceptsPrivateMessages { sub acceptsPrivateMessages {
my $self = shift; my $self = shift;
my $userId = shift; my $userId = shift;
my $pmSetting = $self->profileField('allowPrivateMessages'); my $pmSetting = $self->profileField('allowPrivateMessages');
return 0 if ($pmSetting eq "none"); return 0 if ($pmSetting eq "none");
return 1 if ($pmSetting eq "all"); return 1 if ($pmSetting eq "all");
if($pmSetting eq "friends") { if($pmSetting eq "friends") {
my $friendsGroup = $self->friends; my $friendsGroup = $self->friends;
my $sentBy = WebGUI::User->new($self->session,$userId); my $sentBy = WebGUI::User->new($self->session,$userId);
#$self->session->errorHandler->warn($self->isInGroup($friendsGroup->getId)); #$self->session->errorHandler->warn($self->isInGroup($friendsGroup->getId));
return $sentBy->isInGroup($friendsGroup->getId); return $sentBy->isInGroup($friendsGroup->getId);
} }
return 1; return 1;
} }
@ -285,18 +285,18 @@ sub friends {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getFirstName ( ) =head2 getFirstName ( )
Returns first name, or alias, or username depeneding upon what exists. Returns first name, or alias, or username depeneding upon what exists.
=cut =cut
sub getFirstName { sub getFirstName {
my $self = shift; my $self = shift;
return $self->profileField('firstName') || $self->profileField('alias') || $self->username; return $self->profileField('firstName') || $self->profileField('alias') || $self->username;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getGroups ( [ withoutExpired ] ) =head2 getGroups ( [ withoutExpired ] )
@ -333,12 +333,12 @@ sub getGroups {
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getWholeName ( ) =head2 getWholeName ( )
Attempts to build the user's whole name from profile fields, and ultimately their alias and username if all else Attempts to build the user's whole name from profile fields, and ultimately their alias and username if all else
fails. fails.
=cut =cut
sub getWholeName { sub getWholeName {