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

perltidy'ed the Help files

Browse source
This commit is contained in:
Colin Kuskie 2007-07-21 05:01:24 +00:00
parent d95fabf53b
commit d057dba239
60 changed files with 4949 additions and 9598 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,48 +1,38 @@
package WebGUI::Help::Macros;
our $HELP = {
'macros list' => {
title => 'macros list title',
body => sub {
my $session = shift;
my $dir = join '/', $session->config->getWebguiRoot,"lib","WebGUI","Macro";
opendir (DIR,$dir) or $session->errorHandler->fatal("Can't open Macro directory: $dir!");
my @macros = map { s/\.pm//; $_; }
grep { /\.pm$/ }
readdir(DIR); ##list of namespaces
closedir(DIR);
title => 'macros list title',
body => sub {
my $session = shift;
my $dir = join '/', $session->config->getWebguiRoot, "lib", "WebGUI", "Macro";
opendir( DIR, $dir ) or $session->errorHandler->fatal("Can't open Macro directory: $dir!");
my @macros = map { s/\.pm//; $_; }
grep {/\.pm$/} readdir(DIR); ##list of namespaces
closedir(DIR);
##Build list of enabled macros, by namespace, by reversing session hash:
my %macros = reverse %{ $session->config->get("macros") };
##Build list of enabled macros, by namespace, by reversing session hash:
my %macros = reverse %{ $session->config->get("macros") };
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;
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;
$macro_table =
join("\n",
$i18n->get('macros list body'),
'<table border="1" cellpadding="3">',
'<tr><th>',$i18n->get('macro name'),
'</th><th>',
$i18n->get('macro enabled header'),
'</th><th>',
$i18n->get('macro shortcut'),
'</th></tr>',$macro_table,'</table>');
},
fields => [],
related => [],
$macro_table = join( "\n",
$i18n->get('macros list body'), '<table border="1" cellpadding="3">',
'<tr><th>', $i18n->get('macro name'),
'</th><th>', $i18n->get('macro enabled header'),
'</th><th>', $i18n->get('macro shortcut'),
'</th></tr>', $macro_table,
'</table>' );
},
fields => [],
related => [],
},
};