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

more admin console changes

Browse source
This commit is contained in:
JT Smith 2004-11-03 18:26:02 +00:00
parent c2efefbc4c
commit 73fd8fc506
22 changed files with 70 additions and 124 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/AdminConsole.pm
View file

@ -208,7 +208,10 @@ sub getAdminFunction {
sub new {
my $class = shift;
bless {}, $class;
my $id = shift;
my %self;
$self{_function} = $class->getAdminFunction($id);
bless \%self, $class;
}
sub render {
@ -235,17 +238,11 @@ sub render {
return WebGUI::Template::process($session{setting}{AdminConsoleTemplate}, "AdminConsole", \%var);
}
sub setAdminFunction {
my $self = shift;
my $id = shift;
$self->{_function} = $self->getAdminFunction($id);
}
sub setHelp {
my $self = shift;
my $id = shift;
my $namespace = shift || "WebGUI";
$self->{_helpUrl} = WebGUI::URL::page('op=viewHelp&hid='.$id.'&namespace='.$namespace)
$self->{_helpUrl} = WebGUI::URL::page('op=viewHelp&hid='.$id.'&namespace='.$namespace) if ($id);
}
1;