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

Tinkering with url.

Browse source
This commit is contained in:
Colin Kuskie 2009-12-29 12:05:31 -08:00
parent cb0ca14958
commit f76842f705
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Asset.pm
View file

@ -84,6 +84,7 @@ around url => sub {
if (@_ > 0) { if (@_ > 0) {
my $url = $_[0]; my $url = $_[0];
$url = $self->fixUrl($url); $url = $self->fixUrl($url);
unshift @_, $url;
} }
$self->$orig(@_); $self->$orig(@_);
}; };
@ -213,6 +214,11 @@ property inheritUrlFromParent => (
fieldType => 'yesNo', fieldType => 'yesNo',
defaultValue => 0, defaultValue => 0,
); );
after inheritUrlFromParent => sub {
my $self = shift;
return unless $self->inheritUrlFromParent;
$self->url($self->url);
};
property status => ( property status => (
noFormPost => 1, noFormPost => 1,
fieldType => 'text', fieldType => 'text',