oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

display multiple aliases for macros in the Help

Browse source
This commit is contained in:
Colin Kuskie 2008-09-08 17:01:34 +00:00
parent 9293a6fbb3
commit bce3f54896
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Help/Macros.pm
View file

@ -18,14 +18,25 @@ our $HELP = {
closedir(DIR);
##Build list of enabled macros, by namespace, by reversing session hash:
my %macros = reverse %{ $session->config->get("macros") };
my %configMacros = %{ $session->config->get("macros") };
#my %macros = reverse %{ $session->config->get("macros") };
my %macros;
while (my ($alias, $macroName) = each %configMacros) {
$alias = '^'. $alias . '();';
if (exists $macros{$macroName}) {
$macros{$macroName} .= '<br/>' . $alias;
}
else {
$macros{$macroName} = $alias;
}
}
my $i18n = WebGUI::International->new( $session, 'Macros' );
my $yes = $i18n->get( 138, 'WebGUI' );
my $no = $i18n->get( 139, 'WebGUI' );
my $macro_table = join "\n", map {
join '', '<tr><td>', $_, '</td><td>', ( $macros{$_} ? $yes : $no ), '</td><td>',
( $macros{$_} ? ( '&#94;', $macros{$_}, '();' ) : '&nbsp;' ), '</td></tr>'
( $macros{$_} ? $macros{$_} : '&nbsp;' ), '</td></tr>'
} @macros;
$macro_table = join( "\n",