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

using Form::ClassName too

Browse source
This commit is contained in:
Lucas Bartholemy 2006-05-14 14:21:56 +00:00
parent ab4caf1342
commit 79396d3ee5
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -41,7 +41,6 @@ during the load.
sub _load {
my $session = shift;
my $namespace = shift;
$namespace =~ s/[^\w\d\s]//g;
my $cmd = "WebGUI::Help::".$namespace;
my $load = sprintf 'use %-s; $%-s::HELP;', $cmd, $cmd;
my $hash = eval($load);
@ -244,7 +243,7 @@ sub www_viewHelp {
my $session = shift;
return $session->privilege->insufficient() unless ($session->user->isInGroup(7));
my $ac = WebGUI::AdminConsole->new($session,"help");
my $namespace = $session->form->process("namespace") || "WebGUI";
my $namespace = $session->form->process("namespace","className") || "WebGUI";
my $i18n = WebGUI::International->new($session, $namespace);
my $help = _get($session,$session->form->process("hid"),$namespace);
my @related = _related($session, $help->{related});
@ -416,7 +415,7 @@ the form paramter "namespace".
sub www_viewHelpChapter {
my $session = shift;
return $session->privilege->insufficient() unless ($session->user->isInGroup(7));
my $namespace = $session->form->process("namespace");
my $namespace = $session->form->process("namespace","className");
my $help = _load($session,$namespace);
my @entries = sort keys %{ $help };
my $output = '';