appending to an attribute must quote the +

This commit is contained in:
Colin Kuskie 2010-03-09 13:43:22 -08:00
parent 3b0e89341d
commit 87c00d41c1
8 changed files with 13 additions and 7 deletions

View file

@ -214,7 +214,7 @@ property tabConfiguration => (
fieldType => 'hidden',
noFormPost => 1,
);
has +uiLevel => (
has '+uiLevel' => (
default => 5,
);

View file

@ -146,7 +146,7 @@ property cookieJarStorageId => (
fieldType => "hidden",
default => undef
);
has +uiLevel => (
has '+uiLevel' => (
default => 5,
);

View file

@ -259,7 +259,7 @@ sub _downloadUserGroup_default {
my $self = shift;
return $self->groupIdView;
}
has +uiLevel => (
has '+uiLevel' => (
default => 5,
);

View file

@ -69,7 +69,7 @@ property hasTerms => (
hoverHelp => ['hasTermsLabel description', 'Asset_SyndicatedContent'],
maxlength => 255,
);
has +uiLevel => (
has '+uiLevel' => (
default => 6,
);