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

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Asset/Event.pm
View file

@ -133,14 +133,7 @@ property userDefined5 => (
default => '',
);
around isHidden => sub {
my $orig = shift;
my $self = shift;
if (@_ > 0) {
$_[0] = 1;
}
$self->$orig(@_);
};
with 'WebGUI::AssetRole::AlwaysHidden';
use WebGUI::DateTime;

10
lib/WebGUI/Asset/File/GalleryFile.pm
View file

@ -39,15 +39,7 @@ for my $i ( 1 .. 5 ) {
);
}
around isHidden => sub {
my $orig = shift;
my $self = shift;
if (@_ > 0) {
$_[0] = 1;
}
$self->$orig(@_);
};
with 'WebGUI::AssetRole::AlwaysHidden';
use Carp qw( croak confess );
use URI::Escape;

9
lib/WebGUI/Asset/Post.pm
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) = @_;

10
lib/WebGUI/Asset/Story.pm
View file

@ -67,15 +67,7 @@ property photo => (
noFormPost => 1,
);
around isHidden => sub {
my $orig = shift;
my $self = shift;
if (@_ > 0) {
$_[0] = 1;
}
$self->$orig(@_);
};
with 'WebGUI::AssetRole::AlwaysHidden';
use WebGUI::Utility;
use WebGUI::International;

9
lib/WebGUI/Asset/WikiPage.pm
View file

@ -55,14 +55,7 @@ property isFeatured => (
noFormPost => 1,
);
around isHidden => sub {
my $orig = shift;
my $self = shift;
if (@_ > 0) {
$_[0] = 1;
}
$self->$orig(@_);
};
with 'WebGUI::AssetRole::AlwaysHidden';
use WebGUI::International;
use WebGUI::Utility;

10
lib/WebGUI/Asset/Wobject/GalleryAlbum.pm
View file

@ -41,15 +41,7 @@ for my $i ( 1 .. 5 ) {
);
}
around isHidden => sub {
my $orig = shift;
my $self = shift;
if (@_ > 0) {
$_[0] = 1;
}
$self->$orig(@_);
};
with 'WebGUI::AssetRole::AlwaysHidden';
use Carp qw( croak );
use File::Find;