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

Preparing for 4.6.8 bug fixes.

Browse source
This commit is contained in:
JT Smith 2002-09-12 00:57:23 +00:00
parent c9dcb9dda1
commit 6a5a62c1cf
4 changed files with 5965 additions and 5944 deletions
Download patch file Download diff file Expand all files Collapse all files

11878
docs/previousVersion.sql
View file

File diff suppressed because one or more lines are too long

8
docs/upgrades/upgrade_4.6.7-4.6.8.sql Normal file
View file

@ -0,0 +1,8 @@
insert into webguiVersion values ('4.6.8','upgrade',unix_timestamp());

2
lib/WebGUI.pm
View file

@ -1,5 +1,5 @@
package WebGUI;
our $VERSION = "4.6.7";
our $VERSION = "4.6.8";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC.

21
lib/WebGUI/Session.pm
View file

@ -141,13 +141,20 @@ sub _loadWobjects {
$namespace = $1;
$cmd = "use WebGUI::Wobject::".$namespace;
eval($cmd);
WebGUI::ErrorHandler::fatalError("Wobject failed to compile: $namespace. ".$@) if($@);
$exclude = $session{config}{excludeWobject};
$exclude =~ s/ //g;
unless (isIn($namespace, split(/,/,$exclude))) {
$cmd = "\$WebGUI::Wobject::".$namespace."::name";
$session{wobject}{$namespace} = eval($cmd);
WebGUI::ErrorHandler::fatalError("No name method in wobject: $namespace. ".$@) if($@);
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;
}
}
} else {
WebGUI::ErrorHandler::warn("Wobject failed to compile: $namespace. ".$@);
$session{wobject}{$namespace} = "ERROR: ".$namespace;
}
}
}