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

@ -46,7 +46,7 @@ sub _redirectType_options {
301 => $i18n->get('301 Moved Permanently'),
};
}
has +uiLevel => (
has '+uiLevel' => (
default => 9,
);

View file

@ -169,7 +169,7 @@ property allowMedia => (
label => ['editForm allowMedia label', 'Asset_RichEdit'],
hoverHelp => ['editForm allowMedia description', 'Asset_RichEdit'],
);
has +uiLevel => (
has '+uiLevel' => (
default => 5,
);

View file

@ -97,7 +97,7 @@ property mimeType => (
fieldType => 'mimeType',
default => 'text/html',
);
has +uiLevel => (
has '+uiLevel' => (
default => 5,
);

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,
);

View file

@ -13,5 +13,11 @@ use lib 'tests';
use Test::AssetBase;
use Test::Asset::File;
use Test::Asset::Snippet;
use Test::Asset::RichEdit;
use Test::Asset::Shortcut;
use Test::Asset::Sku;
use Test::Asset::Wobject;
use Test::Asset::Template;
use Test::Asset::Redirect;
Test::Class->runtests;