diff --git a/lib/WebGUI/Help/Workflow_Activity.pm b/lib/WebGUI/Help/Workflow_Activity.pm index 5bbfc73e4..960d673ad 100644 --- a/lib/WebGUI/Help/Workflow_Activity.pm +++ b/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; + + }, }, }; diff --git a/lib/WebGUI/Help/Workflow_Activity_ArchiveOldThreads.pm b/lib/WebGUI/Help/Workflow_Activity_ArchiveOldThreads.pm index 44f8a9ac4..aac2393f5 100644 --- a/lib/WebGUI/Help/Workflow_Activity_ArchiveOldThreads.pm +++ b/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 => [ diff --git a/lib/WebGUI/Help/Workflow_Activity_GetSyndicatedContent.pm b/lib/WebGUI/Help/Workflow_Activity_GetSyndicatedContent.pm new file mode 100644 index 000000000..5826d904c --- /dev/null +++ b/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 diff --git a/lib/WebGUI/i18n/English/Workflow_Activity_GetSyndicatedContent.pm b/lib/WebGUI/i18n/English/Workflow_Activity_GetSyndicatedContent.pm new file mode 100644 index 000000000..55de0cf05 --- /dev/null +++ b/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|
This workflow activity will pre-fetch syndicated content URLs to that the Syndicated Content Assets can serve pages more quickly.
|, + lastUpdated => 0, + }, + +}; + +1;