From d26ae790c9c6916fd7e239aac4b5bcd0b8d50bd8 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 31 Mar 2005 19:42:05 +0000
Subject: [PATCH] dynamically generate a list of available wobjects.  Note that
 nothing shows up for collaboration since there is not help yet.

---
 lib/WebGUI/Help/Asset.pm         | 18 +++++++++++++
 lib/WebGUI/Help/IndexedSearch.pm |  8 +++---
 lib/WebGUI/Help/WSClient.pm      |  4 +--
 lib/WebGUI/Help/Wobject.pm       | 44 --------------------------------
 lib/WebGUI/i18n/English/Asset.pm |  9 +++++++
 5 files changed, 33 insertions(+), 50 deletions(-)

diff --git a/lib/WebGUI/Help/Asset.pm b/lib/WebGUI/Help/Asset.pm
index 66054140f..a8305477b 100644
--- a/lib/WebGUI/Help/Asset.pm
+++ b/lib/WebGUI/Help/Asset.pm
@@ -1,5 +1,7 @@
 package WebGUI::Help::Asset;
 
+use WebGUI::Session;
+
 our $HELP = {
 
         'asset macros' => {
@@ -57,6 +59,22 @@ our $HELP = {
                 ],
         },
 
+	'asset list' => {
+		title => 'asset list title',
+		body => 'asset list body',
+		related => [ map {
+				 my ($namespace) = /::(\w+)$/;
+				 my $tag = $namespace;
+				 $tag =~ s/([a-z])([A-Z])/$1 $2/g;  #Separate studly caps
+				 $tag =~ s/([A-Z]+(?![a-z]))/$1 /g; #Separate acronyms
+				 $tag = lc $tag;
+				 { tag => "$tag add/edit",
+				   namespace => $namespace }
+			     }
+		             @{ $session{config}{assets} }, @{ $session{config}{assetContainers} }
+			   ],
+	},
+
 };
 
 1;
diff --git a/lib/WebGUI/Help/IndexedSearch.pm b/lib/WebGUI/Help/IndexedSearch.pm
index c2396a665..2bb7af14a 100644
--- a/lib/WebGUI/Help/IndexedSearch.pm
+++ b/lib/WebGUI/Help/IndexedSearch.pm
@@ -1,7 +1,7 @@
 package WebGUI::Help::IndexedSearch;
 
 our $HELP = {
-	'search add/edit' => {
+	'indexed search add/edit' => {
 		title => '26',
 		body => '27',
 		related => [
@@ -10,12 +10,12 @@ our $HELP = {
 				namespace => 'Wobject'
 			},
 			{
-				tag => 'search template',
+				tag => 'indexed search template',
 				namespace => 'IndexedSearch'
 			}
 		]
 	},
-	'search template' => {
+	'indexed search template' => {
 		title => '29',
 		body => '28',
 		related => [
@@ -24,7 +24,7 @@ our $HELP = {
 				namespace => 'Wobject'
 			},
 			{
-				tag => 'search add/edit',
+				tag => 'indexed search add/edit',
 				namespace => 'IndexedSearch'
 			}
 		]
diff --git a/lib/WebGUI/Help/WSClient.pm b/lib/WebGUI/Help/WSClient.pm
index 58ea705a9..74c3e4792 100644
--- a/lib/WebGUI/Help/WSClient.pm
+++ b/lib/WebGUI/Help/WSClient.pm
@@ -1,7 +1,7 @@
 package WebGUI::Help::WSClient;
 
 our $HELP = {
-	'web services client add/edit' => {
+	'ws client add/edit' => {
 		title => '61',
 		body => '71',
 		related => [
@@ -15,7 +15,7 @@ our $HELP = {
 			}
 		]
 	},
-	'web services client template' => {
+	'ws client template' => {
 		title => '72',
 		body => '73',
 		related => [
diff --git a/lib/WebGUI/Help/Wobject.pm b/lib/WebGUI/Help/Wobject.pm
index 33a576007..70c26e32c 100644
--- a/lib/WebGUI/Help/Wobject.pm
+++ b/lib/WebGUI/Help/Wobject.pm
@@ -33,50 +33,6 @@ our $HELP = {
 				tag => 'asset fields',
 				namespace => 'Asset'
 			},
-			{
-				tag => 'article add/edit',
-				namespace => 'Article'
-			},
-			{
-				tag => 'events calendar add/edit',
-				namespace => 'EventsCalendar'
-			},
-			{
-				tag => 'http proxy add/edit',
-				namespace => 'HttpProxy'
-			},
-			{
-				tag => 'data form add/edit',
-				namespace => 'DataForm'
-			},
-			{
-				tag => 'message board add/edit',
-				namespace => 'MessageBoard'
-			},
-			{
-				tag => 'metadata manage',
-				namespace => 'Asset'
-			},
-			{
-				tag => 'poll add/edit',
-				namespace => 'Poll'
-			},
-			{
-				tag => 'product add/edit',
-				namespace => 'Product'
-			},
-			{
-				tag => 'sql report add/edit',
-				namespace => 'SQLReport'
-			},
-			{
-				tag => 'survey add/edit',
-				namespace => 'Survey'
-			},
-			{
-				tag => 'syndicated content add/edit',
-				namespace => 'SyndicatedContent'
-			},
 			{
 				tag => 'wobjects using',
 				namespace => 'Wobject'
diff --git a/lib/WebGUI/i18n/English/Asset.pm b/lib/WebGUI/i18n/English/Asset.pm
index 5df22e41e..92f6898fe 100644
--- a/lib/WebGUI/i18n/English/Asset.pm
+++ b/lib/WebGUI/i18n/English/Asset.pm
@@ -526,6 +526,15 @@ each asset under the tab &quot;Meta&quot; in the asset properties.</p>
                 lastUpdated =>1092748557,
                 context => q|asset property|
         },
+	'asset list title' => {
+		 lastUpdated => 1112220921,
+		 message => q|Asset, List of Available|
+	       },
+
+	'asset list body' => {
+		 lastUpdated => 1112291919,
+		 message => q|These Assets are available for use at your site:<p>|
+	       },
 };
 
 1;