Begin the Help purge.
First batch. Autogenerated lists of Assets, Workflow Activities and Template Parsers. Enabled Macros stay, but no linking to Macro pages.
This commit is contained in:
Colin Kuskie
parent
02abc68aa8
commit
14180620ca
5 changed files with 10 additions and 180 deletions
|
|
@ -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;
|
1;
|
||||||
|
|
|
||||||
|
|
@ -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 '', '<tr><td>', $_,
|
|
||||||
'</td><td>',
|
|
||||||
($enabledPlugins{$_} ? $yes : $no),
|
|
||||||
'</td><td>',
|
|
||||||
($_ eq $defaultParser ? $yes : $no),
|
|
||||||
'</td>',
|
|
||||||
} @plugins;
|
|
||||||
|
|
||||||
$plugin_table =
|
|
||||||
join("\n",
|
|
||||||
$i18n->get('template parsers list body'),
|
|
||||||
'<table border="1" cellpadding="3">',
|
|
||||||
'<tr><th>',$i18n->get('plugin name'),
|
|
||||||
'</th><th>',
|
|
||||||
$i18n->get('plugin enabled header'),
|
|
||||||
'</th><th>',
|
|
||||||
$i18n->get('default parser'),
|
|
||||||
'</th></tr>',$plugin_table,'</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;
|
1;
|
||||||
|
|
|
||||||
|
|
@ -11,10 +11,6 @@ our $HELP = {
|
||||||
tag => 'macros using',
|
tag => 'macros using',
|
||||||
namespace => 'Macros'
|
namespace => 'Macros'
|
||||||
},
|
},
|
||||||
{
|
|
||||||
tag => 'macros list',
|
|
||||||
namespace => 'Macros'
|
|
||||||
},
|
|
||||||
{
|
{
|
||||||
tag => 'random asset proxy',
|
tag => 'random asset proxy',
|
||||||
namespace => 'Macro_RandomAssetProxy'
|
namespace => 'Macro_RandomAssetProxy'
|
||||||
|
|
|
||||||
|
|
@ -3,20 +3,20 @@ package WebGUI::Help::Macros;
|
||||||
|
|
||||||
our $HELP = {
|
our $HELP = {
|
||||||
|
|
||||||
'macros using' => {
|
'macros using' => {
|
||||||
title => 'macros using title',
|
title => 'macros using title',
|
||||||
body => 'macros using body',
|
body => 'macros using body',
|
||||||
fields => [
|
fields => [
|
||||||
],
|
],
|
||||||
related => [
|
related => [
|
||||||
{
|
{
|
||||||
tag => "macros list",
|
tag => "macros list",
|
||||||
namespace => "Macros",
|
namespace => "Macros",
|
||||||
},
|
},
|
||||||
],
|
],
|
||||||
},
|
},
|
||||||
|
|
||||||
'macros list' => {
|
'macros list' => {
|
||||||
title => 'macros list title',
|
title => 'macros list title',
|
||||||
body => sub {
|
body => sub {
|
||||||
my $session = shift;
|
my $session = shift;
|
||||||
|
|
@ -55,23 +55,8 @@ our $HELP = {
|
||||||
'</th></tr>',$macro_table,'</table>');
|
'</th></tr>',$macro_table,'</table>');
|
||||||
},
|
},
|
||||||
fields => [],
|
fields => [],
|
||||||
related => sub { ##Hey, you gotta pass in the session var, right?
|
related => [],
|
||||||
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") }
|
|
||||||
},
|
|
||||||
},
|
|
||||||
|
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -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 '', '<tr><td>', $_,
|
|
||||||
'</td><td>',
|
|
||||||
($activities{$_} ? $yes : $no),
|
|
||||||
'</td></tr>'
|
|
||||||
} @installedActivities;
|
|
||||||
|
|
||||||
$activity_table =
|
|
||||||
join("\n",
|
|
||||||
$i18n->get('activities list body'),
|
|
||||||
'<table border="1" cellpadding="3">',
|
|
||||||
'<tr><th>',$i18n->get('activity name'),
|
|
||||||
'</th><th>',
|
|
||||||
$i18n->get('activity enabled header'),
|
|
||||||
'</th></tr>',$activity_table,'</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
|
1; ##All perl modules must return true
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue