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

no luck

Browse source
This commit is contained in:
JT Smith 2006-05-30 14:04:26 +00:00
parent c96cef545c
commit c23e29cdd7
1 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -44,27 +44,27 @@ sub _load {
my $cmd = "WebGUI::Help::".$namespace;
my $load = sprintf 'use %-s; $%-s::HELP;', $cmd, $cmd;
my $hash = eval($load);
my %help = %{$hash};
unless ($@) {
foreach my $tag (keys %{$hash}) {
if ($hash->{$tag}{isa}{namespace}) {
my $other = _load($session, $hash->{$tag}{isa}{namespace});
my $add = $other->{$hash->{$tag}{isa}{tag}}{fields};
@{$hash->{$tag}{fields}} = (@{$hash->{$tag}{fields}}, @{$add});
$add = $other->{$hash->{$tag}{isa}{tag}}{related};
@{$hash->{$tag}{related}} = (@{$hash->{$tag}{related}}, @{$add});
$add = $other->{$hash->{$tag}{isa}{tag}}{variables};
foreach my $tag (keys %help) {
if ($help{$tag}{isa}{namespace}) {
my $other = _load($session, $help{$tag}{isa}{namespace});
my $add = $other->{$help{$tag}{isa}{tag}}{fields};
@{$help{$tag}{fields}} = (@{$help{$tag}{fields}}, @{$add});
$add = $other->{$help{$tag}{isa}{tag}}{related};
@{$help{$tag}{related}} = (@{$help{$tag}{related}}, @{$add});
$add = $other->{$help{$tag}{isa}{tag}}{variables};
foreach my $row (@{$add}) {
push(@{$hash->{$tag}{variables}}, {
push(@{$help{$tag}{variables}}, {
name=> $row->{name},
description => $row->{description},
namespace => $row->{namespace} || $hash->{$tag}{isa}{namespace}
namespace => $row->{namespace} || $help{$tag}{isa}{namespace}
});
}
}
}
return $hash
}
else {
return \%help;
} else {
$session->errorHandler->error("Help failed to compile: $namespace. ".$@);
return {};
}