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

WGBP indent Asset::canView.

Browse source 
Add coverage tests for canView.
This commit is contained in:
Colin Kuskie 2007-12-27 06:36:04 +00:00
parent ed177c614e
commit cf968818b4
2 changed files with 61 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lib/WebGUI/Asset.pm
View file

@ -262,23 +262,23 @@ Unique hash identifier for a user. If not specified, uses current userId.
sub canView {
my $self = shift;
my $eh = $self->session->errorHandler;
my $userId = shift;
my $user;
if (defined $userId) {
$user = WebGUI::User->new($self->session, $userId);
}
else {
$user = $self->session->user;
$userId = $user->userId();
}
if ($userId eq $self->get("ownerUserId")) {
return 1;
} elsif ($user->isInGroup($self->get("groupIdView"))) {
return 1;
}
return $self->canEdit($userId);
my $self = shift;
my $userId = shift;
my $user;
if (defined $userId) {
$user = WebGUI::User->new($self->session, $userId);
}
else {
$user = $self->session->user;
$userId = $user->userId();
}
if ($userId eq $self->get("ownerUserId")) {
return 1;
}
elsif ($user->isInGroup($self->get("groupIdView"))) {
return 1;
}
return $self->canEdit($userId);
}