Added UI Level basics to wobjects and preferences.

lib/WebGUI/Wobject/DownloadManager.pm

@@ -89,6 +89,11 @@ sub set {
         $_[0]->SUPER::set($_[1],[qw(paginateAfter displayThumbnails)]);
 }
 
+#-------------------------------------------------------------------
+sub uiLevel {
+        return 4;
+}
+
 #-------------------------------------------------------------------
 sub www_deleteFile {
 	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());

lib/WebGUI/Wobject/ExtraColumn.pm

@@ -43,6 +43,11 @@ sub set {
         $_[0]->SUPER::set($_[1],[qw(spacer width class)]);
 }
 
+#-------------------------------------------------------------------
+sub uiLevel {
+        return 1;
+}
+
 #-------------------------------------------------------------------
 sub www_edit {
 	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());

lib/WebGUI/Wobject/MailForm.pm

@@ -77,6 +77,11 @@ sub set {
 	$_[0]->SUPER::set($_[1],[@fields]);
 }
 
+#-------------------------------------------------------------------
+sub uiLevel {
+        return 5;
+}
+
 #-------------------------------------------------------------------
 sub www_deleteField {
 	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());

lib/WebGUI/Wobject/SQLReport.pm

@@ -51,6 +51,11 @@ sub set {
         $_[0]->SUPER::set($_[1],[qw(template dbQuery DSN username identifier convertCarriageReturns paginateAfter preprocessMacros debugMode)]);
 }
 
+#-------------------------------------------------------------------
+sub uiLevel {
+	return 9;
+}
+
 #-------------------------------------------------------------------
 sub www_edit {
 	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());

lib/WebGUI/Wobject/SyndicatedContent.pm

@@ -43,6 +43,11 @@ sub set {
         $_[0]->SUPER::set($_[1], [qw(rssUrl content lastFetched)]);
 }
 
+#-------------------------------------------------------------------
+sub uiLevel {
+        return 6;
+}
+
 #-------------------------------------------------------------------
 sub www_edit {
         return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());

lib/WebGUI/Wobject/WobjectProxy.pm

@@ -41,6 +41,11 @@ sub set {
         $_[0]->SUPER::set($_[1],[qw(proxiedWobjectId)]);
 }
 
+#-------------------------------------------------------------------
+sub uiLevel {
+        return 8;
+}
+
 #-------------------------------------------------------------------
 sub www_edit {
 	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());