fixing POD issues, User test

This commit is contained in:
Graham Knop 2008-11-24 02:27:20 +00:00
parent 2a40ab2e6c
commit 586fdb0ec6
9 changed files with 62 additions and 64 deletions

View file

@ -38,18 +38,16 @@ sub canAddMatrixListing {
my $self = shift; my $self = shift;
return 1; return 1;
=cut # my $userId = shift;
my $userId = shift; #
# my $user = $userId
my $user = $userId # ? WebGUI::User->new( $self->session, $userId )
? WebGUI::User->new( $self->session, $userId ) # : $self->session->user
: $self->session->user # ;
; #
# return 1 if (
return 1 if ( # $user->isInGroup( $self->get("groupIdEventEdit") )
$user->isInGroup( $self->get("groupIdEventEdit") ) # );
);
=cut
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------

View file

@ -63,11 +63,11 @@ These subroutines are available from this package:
Creates an instance of an account pluggin Creates an instance of an account pluggin
=session =head3 session
WebGUI::Session object WebGUI::Session object
=module =head3 module
Module the method is in. Defaults to the profileModuleIdentifier in the config file Module the method is in. Defaults to the profileModuleIdentifier in the config file

View file

@ -328,7 +328,7 @@ The number of rows to display per page. If left blank it defaults to 25.
Specify the form variable the paginator should use in its links. Defaults to "pn". Specify the form variable the paginator should use in its links. Defaults to "pn".
=head pageNumber =head4 pageNumber
By default the page number will be determined by looking at $self->session->form->process("pn"). If that is empty the page number will be defaulted to "1". If you'd like to override the page number specify it here. By default the page number will be determined by looking at $self->session->form->process("pn"). If that is empty the page number will be defaulted to "1". If you'd like to override the page number specify it here.

View file

@ -588,7 +588,7 @@ is ($neighbor->acceptsPrivateMessages($friend->userId), 1, 'acceptsPrivateMessag
$friend->deleteFromGroups([$neighbor->friends->getId]); $friend->deleteFromGroups([$neighbor->friends->getId]);
$neighbor->profileField('allowPrivateMessages', 'not a valid choice'); $neighbor->profileField('allowPrivateMessages', 'not a valid choice');
is ($neighbor->acceptsPrivateMessages($friend->userId), 1, 'acceptsPrivateMessages: illegal profile field allows messages to be received from anyone'); is ($neighbor->acceptsPrivateMessages($friend->userId), 0, 'acceptsPrivateMessages: illegal profile field doesn\'t allow messages to be received from anyone');
################################################################ ################################################################
# #