Refactor code for updating storage location file permissions into a Role.

This commit is contained in:
Colin Kuskie 2010-02-16 08:56:34 -08:00
parent abaeab36e0
commit 90facc46a9
4 changed files with 60 additions and 60 deletions

View file

@ -75,27 +75,7 @@ property content => (
with 'WebGUI::AssetRole::AlwaysHidden';
sub _set_ownerUserId {
my ($self, $new, $old) = @_;
if ($new ne $old) {
$self->getStorageLocation->setPrivileges($self->ownerUserId, $self->groupIdView, $self->groupIdEdit);
}
}
sub _set_groupIdView {
my ($self, $new, $old) = @_;
if ($new ne $old) {
$self->getStorageLocation->setPrivileges($self->ownerUserId, $self->groupIdView, $self->groupIdEdit);
}
}
sub _set_groupIdEdit {
my ($self, $new, $old) = @_;
if ($new ne $old) {
$self->getStorageLocation->setPrivileges($self->ownerUserId, $self->groupIdView, $self->groupIdEdit);
}
}
with 'WebGUI::AssetRole::SetStoragePermissions';
use WebGUI::Asset::Template;