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

Fix a bug with extraHeadTags wrapper, prevent extraHeadTagsPacked and className from being initialized.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-15 17:00:02 -08:00
parent b7761ce50e
commit 0c3f4a26df
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Asset.pm
View file

@ -160,6 +160,7 @@ property extraHeadTags => (
customDrawMethod=> 'drawExtraHeadTags',
);
around extraHeadTags => sub {
my $orig = shift;
my $self = shift;
if (@_ > 1) {
my $unpacked = $_[0];
@ -172,11 +173,13 @@ around extraHeadTags => sub {
} );
$self->extraHeadTagsPacked($packed);
}
$self->$orig(@_);
};
property extraHeadTagsPacked => (
fieldType => 'hidden',
default => undef,
noFormPost => 1,
init_args => undef,
);
property usePackedHeadTags => (
tab => "meta",
@ -261,8 +264,13 @@ has [qw/parentId lineage
);
has className => (
is => 'ro',
default => sub { ref shift; },
builder => '_build_className',
init_arg => undef,
);
sub _build_className {
my $self = shift;
return ref $self;
}
around BUILDARGS => sub {
my $orig = shift;