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

fixed some pod errors

Browse source 
removed futile inbox attempt
This commit is contained in:
JT Smith 2006-01-31 23:10:10 +00:00
parent 518a65df78
commit 7731a32559
20 changed files with 18 additions and 333 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib/WebGUI/User.pm
View file

@ -17,7 +17,6 @@ package WebGUI::User;
use strict;
use WebGUI::Cache;
use WebGUI::Group;
use WebGUI::User::Inbox;
=head1 NAME
@ -46,8 +45,6 @@ This package provides an object-oriented way of managing WebGUI users as well as
$u->deleteFromGroups(\@arr);
$u->delete;
my $inbox = $u->inbox;
=head1 METHODS
These methods are available from this class:
@ -139,7 +136,6 @@ Deletes this user.
sub delete {
my $self = shift;
$self->uncache;
$self->inbox->delete;
foreach my $groupId (@{$self->getGroups($self->userId)}) {
WebGUI::Group->new($self->session,$groupId)->deleteUsers([$self->userId]);
}
@ -174,7 +170,7 @@ sub deleteFromGroups {
#-------------------------------------------------------------------
=head DESTROY ( )
=head2 DESTROY ( )
Deconstructor.
@ -182,7 +178,6 @@ Deconstructor.
sub DESTROY {
my $self = shift;
$self->{_inbox}->DESTROY if (exists $self->{_inbox});
undef $self;
}
@ -234,22 +229,6 @@ sub identifier {
return $self->{_user}{"identifier"};
}
#-------------------------------------------------------------------
=head2 inbox
Returns the user's WebGUI::User::Inbox object.
=cut
sub inbox {
my $self = shift;
unless ($self->{_inbox}) {
$self->{_inbox} = WebGUI::User::Inbox->new($self);
}
return $self->{_inbox};
}
#-------------------------------------------------------------------