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);

			##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;

			$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 => [],
    },

};

1;