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.
This commit is contained in:
parent
e3f65811bb
commit
78db101163
4 changed files with 63 additions and 3 deletions
|
|
@ -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;
|
||||
|
||||
},
|
||||
},
|
||||
|
||||
};
|
||||
|
|
|
|||
|
|
@ -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 => [
|
||||
|
|
|
|||
23
lib/WebGUI/Help/Workflow_Activity_GetSyndicatedContent.pm
Normal file
23
lib/WebGUI/Help/Workflow_Activity_GetSyndicatedContent.pm
Normal file
|
|
@ -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
|
||||
Loading…
Add table
Add a link
Reference in a new issue