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

Remove update override sub, and use the new Asset triggers instead.

Browse source
This commit is contained in:
Colin Kuskie 2010-02-04 14:02:08 -08:00
parent d22b42fa1f
commit 019ebba6f2
1 changed files with 21 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

42
lib/WebGUI/Asset/Wobject/Article.pm
View file

@ -72,6 +72,27 @@ sub _set_storageId {
sub _storageid_deleteFileUrl {
return shift->session->url->page("func=deleteFile;filename=");
}
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);
}
}
use WebGUI::Storage;
use WebGUI::HTML;
@ -257,27 +278,6 @@ sub processPropertiesFromFormPost {
$self->setSize($size);
}
#-------------------------------------------------------------------
=head2 update ( )
Extend the super class to handle the storage location. Sets
the correct privileges and deletes the internally cached
Storage object.
=cut
sub update {
my $self = shift;
$self->SUPER::update(@_);
$self->getStorageLocation->setPrivileges(
$self->get("ownerUserId"),
$self->get("groupIdView"),
$self->get("groupIdEdit"),
);
}
#-------------------------------------------------------------------
=head2 purge ( )