From 87c00d41c1bba50ac7ce1ad86f506320e1d9673e Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 9 Mar 2010 13:43:22 -0800
Subject: [PATCH] appending to an attribute must quote the +

---
 lib/WebGUI/Asset/Redirect.pm                  | 2 +-
 lib/WebGUI/Asset/RichEdit.pm                  | 2 +-
 lib/WebGUI/Asset/Snippet.pm                   | 2 +-
 lib/WebGUI/Asset/Wobject/DataForm.pm          | 2 +-
 lib/WebGUI/Asset/Wobject/HttpProxy.pm         | 2 +-
 lib/WebGUI/Asset/Wobject/SQLReport.pm         | 2 +-
 lib/WebGUI/Asset/Wobject/SyndicatedContent.pm | 2 +-
 t/run_asset.t                                 | 6 ++++++
 8 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Asset/Redirect.pm b/lib/WebGUI/Asset/Redirect.pm
index 7f51bd5e8..77369912d 100644
--- a/lib/WebGUI/Asset/Redirect.pm
+++ b/lib/WebGUI/Asset/Redirect.pm
@@ -46,7 +46,7 @@ sub _redirectType_options {
         301 => $i18n->get('301 Moved Permanently'),       
     };
 }
-has +uiLevel => (
+has '+uiLevel' => (
     default => 9,
 );
 
diff --git a/lib/WebGUI/Asset/RichEdit.pm b/lib/WebGUI/Asset/RichEdit.pm
index 8082d2725..1500a54af 100644
--- a/lib/WebGUI/Asset/RichEdit.pm
+++ b/lib/WebGUI/Asset/RichEdit.pm
@@ -169,7 +169,7 @@ property allowMedia => (
                 label           => ['editForm allowMedia label', 'Asset_RichEdit'],
                 hoverHelp       => ['editForm allowMedia description', 'Asset_RichEdit'],
          );
-has +uiLevel => (
+has '+uiLevel' => (
     default => 5,
 );
 
diff --git a/lib/WebGUI/Asset/Snippet.pm b/lib/WebGUI/Asset/Snippet.pm
index 538627fd3..2b1ca33ce 100644
--- a/lib/WebGUI/Asset/Snippet.pm
+++ b/lib/WebGUI/Asset/Snippet.pm
@@ -97,7 +97,7 @@ property mimeType => (
    	fieldType       => 'mimeType',
     default         => 'text/html',
 );
-has +uiLevel => (
+has '+uiLevel' => (
     default         => 5,
 );
 
diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm
index 5929508bd..e3f98efaf 100644
--- a/lib/WebGUI/Asset/Wobject/DataForm.pm
+++ b/lib/WebGUI/Asset/Wobject/DataForm.pm
@@ -214,7 +214,7 @@ property tabConfiguration => (
             fieldType       => 'hidden',
             noFormPost      => 1,
         );
-has +uiLevel => (
+has '+uiLevel' => (
     default => 5,
 );
 
diff --git a/lib/WebGUI/Asset/Wobject/HttpProxy.pm b/lib/WebGUI/Asset/Wobject/HttpProxy.pm
index 6a42e74bf..7955a679a 100644
--- a/lib/WebGUI/Asset/Wobject/HttpProxy.pm
+++ b/lib/WebGUI/Asset/Wobject/HttpProxy.pm
@@ -146,7 +146,7 @@ property cookieJarStorageId => (
                 fieldType  => "hidden",
                 default    => undef
          );
-has +uiLevel => (
+has '+uiLevel' => (
     default => 5,
 );
 
diff --git a/lib/WebGUI/Asset/Wobject/SQLReport.pm b/lib/WebGUI/Asset/Wobject/SQLReport.pm
index fd62c6db1..b4fd396f7 100644
--- a/lib/WebGUI/Asset/Wobject/SQLReport.pm
+++ b/lib/WebGUI/Asset/Wobject/SQLReport.pm
@@ -259,7 +259,7 @@ sub _downloadUserGroup_default {
     my $self = shift;
     return $self->groupIdView;
 }
-has +uiLevel => (
+has '+uiLevel' => (
     default => 5,
 );
 
diff --git a/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm b/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
index cf829b847..a3a20881e 100644
--- a/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
+++ b/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
@@ -69,7 +69,7 @@ property hasTerms => (
                 hoverHelp    => ['hasTermsLabel description', 'Asset_SyndicatedContent'],
                 maxlength    => 255,
          );
-has +uiLevel => (
+has '+uiLevel' => (
     default => 6,
 );
 
diff --git a/t/run_asset.t b/t/run_asset.t
index feb70c12e..4f0a07cfa 100644
--- a/t/run_asset.t
+++ b/t/run_asset.t
@@ -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;