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

Added UI Level basics to wobjects and preferences.

Browse source
This commit is contained in:
JT Smith 2002-10-05 17:15:10 +00:00
parent 7bc98eed07
commit 95c08144f0
9 changed files with 64 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Session.pm
View file

@ -144,13 +144,14 @@ sub _loadWobjects {
unless ($@) {
$exclude = $session{config}{excludeWobject};
$exclude =~ s/ //g;
unless (isIn($namespace, split(/,/,$exclude))) {
$cmd = "\$WebGUI::Wobject::".$namespace."::name";
$session{wobject}{$namespace} = eval($cmd);
if ($@) {
WebGUI::ErrorHandler::warn("No name method in wobject: $namespace. ".$@);
$session{wobject}{$namespace} = "ERROR: ".$namespace;
}
next if (isIn($namespace, split(/,/,$exclude)));
$cmd = "\WebGUI::Wobject::".$namespace."::uiLevel";
next if (eval($cmd) > $session{user}{uiLevel});
$cmd = "\$WebGUI::Wobject::".$namespace."::name";
$session{wobject}{$namespace} = eval($cmd);
if ($@) {
WebGUI::ErrorHandler::warn("No name method in wobject: $namespace. ".$@);
$session{wobject}{$namespace} = "ERROR: ".$namespace;
}
} else {
WebGUI::ErrorHandler::warn("Wobject failed to compile: $namespace. ".$@);