Refactor code to force assets to always be hidden into a role and use it.

This commit is contained in:
Colin Kuskie 2010-02-16 08:50:00 -08:00
parent 1d777d4596
commit abaeab36e0
8 changed files with 71 additions and 52 deletions

View file

@ -73,14 +73,7 @@ property content => (
default => undef,
);
around isHidden => sub {
my $orig = shift;
my $self = shift;
if (@_ > 0) {
$_[0] = 1;
}
$self->$orig(@_);
};
with 'WebGUI::AssetRole::AlwaysHidden';
sub _set_ownerUserId {
my ($self, $new, $old) = @_;