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

Fix triggers for updating storage permissions when asset permissions change.

Browse source
This commit is contained in:
Colin Kuskie 2010-08-18 08:23:17 -07:00
parent 3500b6afc7
commit ae8ed52647
3 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset.pm
View file

@ -127,7 +127,7 @@ property ownerUserId => (
uiLevel => 6,
fieldType => 'user',
default => '3',
trigger => \&_set_ownerUserId,
trigger => sub { shift->_set_ownerUserId(@_) } ,
);
sub _set_ownerUserId {
return;
@ -139,7 +139,7 @@ property groupIdView => (
uiLevel => 6,
fieldType => 'group',
default => '7',
trigger => \&_set_groupIdView,
trigger => sub { shift->_set_groupIdView(@_) },
);
sub _set_groupIdView {
return;
@ -152,7 +152,7 @@ property groupIdEdit => (
uiLevel => 6,
fieldType => 'group',
default => '4',
trigger => \&_set_groupIdEdit,
trigger => sub { shift->_set_groupIdEdit(@_) } ,
);
sub _set_groupIdEdit {
return;

3
lib/WebGUI/Role/Asset/SetStoragePermissions.pm
View file

@ -33,6 +33,7 @@ use Moose::Role;
sub _set_ownerUserId {
my ($self, $new, $old) = @_;
$old ||= '';
if ($new ne $old) {
$self->getStorageLocation->setPrivileges($self->ownerUserId, $self->groupIdView, $self->groupIdEdit);
}
@ -40,6 +41,7 @@ sub _set_ownerUserId {
sub _set_groupIdView {
my ($self, $new, $old) = @_;
$old ||= '';
if ($new ne $old) {
$self->getStorageLocation->setPrivileges($self->ownerUserId, $self->groupIdView, $self->groupIdEdit);
}
@ -47,6 +49,7 @@ sub _set_groupIdView {
sub _set_groupIdEdit {
my ($self, $new, $old) = @_;
$old ||= '';
if ($new ne $old) {
$self->getStorageLocation->setPrivileges($self->ownerUserId, $self->groupIdView, $self->groupIdEdit);
}

1
t/Asset/File.t
View file

@ -125,7 +125,6 @@ cmp_deeply(
my $newRev = $asset->addRevision( { groupIdView => '7' }, time + 8 );
WebGUI::Test::addToCleanup( WebGUI::VersionTag->getWorking( $session ) );
is( $newRev->getStorageLocation->getFileContentsAsScalar('.wgaccess'), undef, "wgaccess doesn't exist" );
note( @{ $newRev->getStorageLocation->getFiles() } );
############################################
#