Automated related docs for installed and configured Workflow Activities.

Missed the GetSyndicatedContent docs last night, they've been added.
Fixed a bad help topic name in ArchiveOldThreads.

lib/WebGUI/Help/Workflow_Activity.pm

@@ -67,8 +67,28 @@ our $HELP = {
 		],
 		variables => [
 		],
-		related => [
+		related => sub {
-		],
+			my $session = shift;
+
+			##Build list of enabled activities, by namespace, by reversing session hash:
+			my %workflows = %{ $session->config->get("workflowActivities") };
+			my @activities = map { s/^WebGUI::Workflow::Activity:://; $_; }
+					map { @{ $workflows{$_} } }
+					keys %workflows;
+			use Data::Dumper;
+			$session->errorHandler->warn(Dumper \@activities);
+			return map {
+				my ($namespace, $tag) = ($_, $_);
+				$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;
+				$namespace = join '', 'Workflow_Activity_', $namespace;
+				$session->errorHandler->warn($tag.' '.$namespace);
+				{ tag => "$tag",
+				namespace => $namespace }
+			} @activities;
+
+		},
 	},
 
 };

lib/WebGUI/Help/Workflow_Activity_ArchiveOldThreads.pm

@@ -1,7 +1,7 @@
 package WebGUI::Help::Workflow_Activity_ArchiveOldThreads;
 
 our $HELP = {
-	'add/edit archive old threads' => {
+	'archive old threads' => {
 		title => 'activityName',
 		body => 'archive old threads body',
 		isa => [

lib/WebGUI/Help/Workflow_Activity_GetSyndicatedContent.pm

@@ -0,0 +1,23 @@
+package WebGUI::Help::Workflow_Activity_GetSyndicatedContent;
+
+our $HELP = {
+	'get syndicated content' => {
+		title => 'activityName',
+		body => 'get syndicated content body',
+		isa => [
+			{
+				namespace => "Workflow_Activity",
+				tag => "add/edit workflow activity"
+			},
+		],
+		fields => [
+		],
+		variables => [
+		],
+		related => [
+		],
+	},
+
+};
+
+1;  ##All perl modules must return true

lib/WebGUI/i18n/English/Workflow_Activity_GetSyndicatedContent.pm

@@ -0,0 +1,17 @@
+package WebGUI::i18n::English::Workflow_Activity_GetSyndicatedContent;
+
+our $I18N = {
+	'activityName' => {
+		message => q|Get Syndicated Content|,
+		context => q|The name of this workflow activity.|,
+		lastUpdated => 0,
+	},
+
+	'get syndicated content body' => {
+		message => q|<p>This workflow activity will pre-fetch syndicated content URLs to that the Syndicated Content Assets can serve pages more quickly.</p>|,
+		lastUpdated => 0,
+	},
+
+};
+
+1;