diff --git a/lib/WebGUI/Help/Asset.pm b/lib/WebGUI/Help/Asset.pm
index 531817c4f..209e052db 100644
--- a/lib/WebGUI/Help/Asset.pm
+++ b/lib/WebGUI/Help/Asset.pm
@@ -504,30 +504,6 @@ our $HELP = {
]
},
- 'asset list' => {
- title => 'asset list title',
- body => 'asset list body',
- fields => [
- ],
- related => sub {
- my ($session) = @_;
- 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;
- $namespace = join '', 'Asset_', $namespace;
- { tag => "$tag add/edit",
- namespace => $namespace }
- }
- grep { $_ } ##Filter out empty entries
- @{ $session->config->get("assets") },
- @{ $session->config->get("assetContainers") },
- @{ $session->config->get("utilityAssets") },
- },
- },
-
};
1;
diff --git a/lib/WebGUI/Help/Asset_Template.pm b/lib/WebGUI/Help/Asset_Template.pm
index 38f2fa723..0c219a6d4 100644
--- a/lib/WebGUI/Help/Asset_Template.pm
+++ b/lib/WebGUI/Help/Asset_Template.pm
@@ -155,68 +155,6 @@ our $HELP = {
]
},
- 'template parsers list' => {
- title => 'template parsers list title',
- body => sub {
- my $session = shift;
- my $dir = join '/', $session->config->getWebguiRoot,"lib","WebGUI","Asset","Template";
- opendir (DIR,$dir) or $session->errorHandler->fatal("Can't open Macro directory: $dir!");
- my @plugins = map { s/\.pm//; $_; }
- grep { $_ ne "Parser.pm" }
- grep { /\.pm$/ }
- readdir(DIR); ##list of namespaces
- closedir(DIR);
-
- ##Build list of enabled macros, by namespace, by reversing session hash:
- my @enabledPlugins = map { m/^WebGUI::Asset::Template::(\S+)/; $1 } @{ $session->config->get("templateParsers") };
- my $defaultParser = $session->config->get('defaultTemplateParser');
- $defaultParser =~ s/^WebGUI::Asset::Template:://;
- my %enabledPlugins = map { $_ => 1 } @enabledPlugins;
-
- my $i18n = WebGUI::International->new($session, 'Asset_Template');
- my $yes = $i18n->get(138, 'WebGUI');
- my $no = $i18n->get(139, 'WebGUI');
- my $plugin_table =
- join "\n",
- map { join '', '
| ', $_,
- ' | ',
- ($enabledPlugins{$_} ? $yes : $no),
- ' | ',
- ($_ eq $defaultParser ? $yes : $no),
- ' | ',
- } @plugins;
-
- $plugin_table =
- join("\n",
- $i18n->get('template parsers list body'),
- '',
- '| ',$i18n->get('plugin name'),
- ' | ',
- $i18n->get('plugin enabled header'),
- ' | ',
- $i18n->get('default parser'),
- ' |
',$plugin_table,'
');
- },
- fields => [],
- related => sub { ##Hey, you gotta pass in the session var, right?
- my $session = shift;
- sort { $a->{tag} cmp $b->{tag} }
- map {
- s/^WebGUI::Asset::Template:://;
- $tag = $_;
- $tag =~ s/^[a-zA-Z]+_//; #Remove initial shortcuts
- $tag =~ s/([A-Z]+(?![a-z]))/$1 /g; #Separate acronyms
- $tag =~ s/([a-z])([A-Z])/$1 $2/g; #Separate studly caps
- $tag =~ s/\s+$//;
- $tag = lc $tag;
- $namespace = join '', 'Template_', $_;
- { tag => $tag,
- namespace => $namespace }
- }
- @{ $session->config->get("templateParsers") }
- },
-,
- },
};
1;
diff --git a/lib/WebGUI/Help/Macro_RandomThread.pm b/lib/WebGUI/Help/Macro_RandomThread.pm
index 26aa3d3f1..47eb4593d 100644
--- a/lib/WebGUI/Help/Macro_RandomThread.pm
+++ b/lib/WebGUI/Help/Macro_RandomThread.pm
@@ -11,10 +11,6 @@ our $HELP = {
tag => 'macros using',
namespace => 'Macros'
},
- {
- tag => 'macros list',
- namespace => 'Macros'
- },
{
tag => 'random asset proxy',
namespace => 'Macro_RandomAssetProxy'
diff --git a/lib/WebGUI/Help/Macros.pm b/lib/WebGUI/Help/Macros.pm
index 63818cf1c..93d344968 100644
--- a/lib/WebGUI/Help/Macros.pm
+++ b/lib/WebGUI/Help/Macros.pm
@@ -3,20 +3,20 @@ package WebGUI::Help::Macros;
our $HELP = {
- 'macros using' => {
+ 'macros using' => {
title => 'macros using title',
body => 'macros using body',
fields => [
],
related => [
- {
- tag => "macros list",
- namespace => "Macros",
- },
- ],
- },
+ {
+ tag => "macros list",
+ namespace => "Macros",
+ },
+ ],
+ },
- 'macros list' => {
+ 'macros list' => {
title => 'macros list title',
body => sub {
my $session = shift;
@@ -55,23 +55,8 @@ our $HELP = {
'
',$macro_table,'');
},
fields => [],
- related => sub { ##Hey, you gotta pass in the session var, right?
- my $session = shift;
- sort { $a->{tag} cmp $b->{tag} }
- map {
- $tag = $_;
- $tag =~ s/^[a-zA-Z]+_//; #Remove initial shortcuts
- $tag =~ s/([A-Z]+(?![a-z]))/$1 /g; #Separate acronyms
- $tag =~ s/([a-z])([A-Z])/$1 $2/g; #Separate studly caps
- $tag =~ s/\s+$//;
- $tag = lc $tag;
- $namespace = join '', 'Macro_', $_;
- { tag => $tag,
- namespace => $namespace }
- }
- values %{ $session->config->get("macros") }
- },
- },
+ related => [],
+ },
};
diff --git a/lib/WebGUI/Help/Workflow_Activity.pm b/lib/WebGUI/Help/Workflow_Activity.pm
index 00ae5c159..77c7e0b19 100644
--- a/lib/WebGUI/Help/Workflow_Activity.pm
+++ b/lib/WebGUI/Help/Workflow_Activity.pm
@@ -24,71 +24,6 @@ our $HELP = {
],
},
- 'list of installed activities' => {
- title => 'list of installed activities',
- body => sub {
- my $session = shift;
- my $dir = join '/', $session->config->getWebguiRoot,"lib","WebGUI","Workflow","Activity";
- opendir (DIR,$dir) or $session->errorHandler->fatal("Can't open Activity directory: $dir!");
- my @installedActivities = sort map { s/\.pm//; $_; }
- grep { /\.pm$/ }
- readdir(DIR); ##list of namespaces
- closedir(DIR);
-
- ##Build list of enabled activities, by namespace, by reversing session hash:
- my %workflows = %{ $session->config->get("workflowActivities") };
- my %activities = map { s/^WebGUI::Workflow::Activity:://; $_ => 1 }
- map { @{ $workflows{$_} } }
- keys %workflows;
-
- my $i18n = WebGUI::International->new($session, 'Workflow_Activity');
- my $yes = $i18n->get(138, 'WebGUI');
- my $no = $i18n->get(139, 'WebGUI');
- my $activity_table =
- join "\n",
- map { join '', '| ', $_,
- ' | ',
- ($activities{$_} ? $yes : $no),
- ' |
'
- } @installedActivities;
-
- $activity_table =
- join("\n",
- $i18n->get('activities list body'),
- '',
- '| ',$i18n->get('activity name'),
- ' | ',
- $i18n->get('activity enabled header'),
- ' |
',$activity_table,'
');
- },
- isa => [
- ],
- fields => [
- ],
- variables => [
- ],
- 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;
- 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; ##All perl modules must return true