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

Set up filtering on title, menuTitle and URL. This is done via "around".

Browse source
This commit is contained in:
Colin Kuskie 2009-12-18 12:59:01 -08:00
parent 0c4710c4ad
commit 0e90ad00b8
3 changed files with 74 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

119
lib/WebGUI/Asset.pm
View file

@ -50,6 +50,16 @@ property title => (
fieldType => 'text',
defaultValue => 'Untitled',
);
around title => sub {
my $orig = shift;
my $self = shift;
if (@_ > 1) {
my $title = $_[0];
$title = 'Untitled' if $title eq '';
$title = WebGUI::HTML::filter($title, 'all');
}
$self->$orig(@_);
};
property menuTitle => (
tab => "properties",
label => ['411','Asset'],
@ -58,6 +68,16 @@ property menuTitle => (
fieldType => 'text',
defaultValue => 'Untitled',
);
around menuTitle => sub {
my $orig = shift;
my $self = shift;
if (@_ > 1) {
my $title = $_[0];
$title = $self->title if $title eq '';
$title = WebGUI::HTML::filter($title, 'all');
}
$self->$orig(@_);
};
property url => (
tab => "properties",
label => ['104','Asset'],
@ -66,6 +86,15 @@ property url => (
fieldType => 'text',
defaultValue => sub { return $_[0]->getId; },
);
around url => sub {
my $orig = shift;
my $self = shift;
if (@_ > 1) {
my $url = $_[0];
$url = $self->fixUrl($url);
}
$self->$orig(@_);
};
property isHidden => (
tab => "display",
label => ['886','Asset'],
@ -133,6 +162,22 @@ property extraHeadTags => (
defaultValue => undef,
customDrawMethod=> 'drawExtraHeadTags',
);
around extraHeadTags => sub {
my $orig = shift;
my $self = shift;
if (@_ > 1) {
my $unpacked = $_[0];
my $packed = $unpacked; ##Undo magic aliasing since a reference is passed below
HTML::Packer::minify( \$packed, {
remove_comments => 1,
remove_newlines => 1,
do_javascript => "shrink",
do_stylesheet => "minify",
} );
$self->extraHeadTagsPacked($packed);
}
$self->$orig(@_);
};
property extraHeadTagsPacked => (
fieldType => 'hidden',
defaultValue => undef,
@ -495,21 +540,6 @@ If specified, stores it, but also updates extraHeadTagsPacked with the packed ve
=cut
sub extraHeadTags {
my ( $self, $unpacked ) = @_;
if (@_ > 1) {
my $packed = $unpacked;
HTML::Packer::minify( \$packed, {
remove_comments => 1,
remove_newlines => 1,
do_javascript => "shrink",
do_stylesheet => "minify",
} );
$self->extraHeadTagsPacked($packed);
}
return $self->next::method($unpacked);
}
#-------------------------------------------------------------------
=head2 fixUrl ( [value] )
@ -1462,6 +1492,18 @@ sub logView {
#-------------------------------------------------------------------
=head2 title ( [value] )
Returns the title of the asset.
=head3 value
If specified this value will be used to set the title after it goes through some validation checking.
=cut
#-------------------------------------------------------------------
=head2 menuTitle ( [value] )
Returns the menuTitle of the asset, which is used in navigations.
@ -1472,17 +1514,6 @@ If specified this value will be used to set the title after it goes through some
=cut
sub menuTitle {
my ($self, $title) = @_;
if (@_ > 1) {
if ($title eq "") {
$title = $self->title;
}
$title = WebGUI::HTML::filter($title, 'all');
}
return $self->next::method($title);
}
#-------------------------------------------------------------------
=head2 new ( session, assetId [, className, revisionDate ] )
@ -1723,7 +1754,7 @@ The asset's id
=cut
sub newPending {
my $class = shift;
my $class = shift;
my $session = shift;
my $assetId = shift;
croak "First parameter to newPending needs to be a WebGUI::Session object"
@ -2167,30 +2198,6 @@ sub setSize {
}
#-------------------------------------------------------------------
=head2 title ( [value] )
Returns the title of the asset.
=head3 value
If specified this value will be used to set the title after it goes through some validation checking.
=cut
sub title {
my ($self, $title) = @_;
if (@_ > 1) {
if ($title eq "") {
$title = 'Untitled';
}
$title = WebGUI::HTML::filter($title, 'all');
}
return $self->next::method($title);
}
#-------------------------------------------------------------------
=head2 toggleToolbar ( )
@ -2314,18 +2321,8 @@ The new value to set the URL to.
=cut
sub url {
my ($self, $url) = @_;
if (@_ > 1) {
$url = $self->fixUrl($url);
}
return $self->next::method($url);
}
#-------------------------------------------------------------------
=head2 urlExists ( session, url [, options] )
Returns true if the asset URL is used within the system. This is a class method.

4
lib/WebGUI/Definition.pm
View file

@ -115,6 +115,10 @@ A property is a special object attribute with it's type constraints set by
HTML form properties, such as base type (Text, Integer, Float, SelectList),
default value, value, etc.
By default, the Moose option C<is => 'rw'> is added to all properties to make
sure the accessors are generated. If you want to prevent that from happening,
pass an explicit C<is => 'ro'> along with %options.
=head3 $name
The name of the property.