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

automatically generated documentation has to get a session var, too

Browse source
This commit is contained in:
Colin Kuskie 2006-01-14 00:28:58 +00:00
parent f55e487d3e
commit cc370e180f
3 changed files with 34 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Operation/Help.pm
View file

@ -95,6 +95,17 @@ sub _getHelpName {
return $i18n->get($helpName,$file);
}
#-------------------------------------------------------------------
sub _related {
my ($session, $related) = @_;
if (ref $related eq 'CODE') {
return $related->($session);
}
else {
return @{ $related };
}
}
#-------------------------------------------------------------------
sub www_viewHelp {
my $session = shift;
@ -103,7 +114,8 @@ sub www_viewHelp {
my $namespace = $session->form->process("namespace") || "WebGUI";
my $i18n = WebGUI::International->new($session, $namespace);
my $help = _get($session->form->process("hid"),$namespace);
foreach my $row (@{$help->{related}}) {
my @related = _related($session, $help->{related});
foreach my $row (@related) {
my $relatedHelp = _get($row->{tag},$row->{namespace});
$ac->addSubmenuItem(_link($row->{tag},$row->{namespace}),$i18n->get($relatedHelp->{title},$row->{namespace}));
}