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