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

fixed a bug in SQL::quote

Browse source 
fixed the logging bug
This commit is contained in:
JT Smith 2005-12-04 23:40:55 +00:00
parent e26b7c9808
commit 9722bad470
3 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/ErrorHandler.pm
View file

@ -14,13 +14,14 @@ package WebGUI::ErrorHandler;
=cut
use strict;
use FileHandle;
use Log::Log4perl;
use strict;
use WebGUI::Session;
use Apache2::RequestUtil;
$Log::Log4perl::caller_depth = 1;
$Log::Log4perl::caller_depth++;
=head1 NAME
@ -204,7 +205,9 @@ Returns a reference to the logger.
=cut
sub getLogger {
Log::Log4perl::init_once($WebGUI::Session::session{config}{webguiRoot}."/etc/log.conf");
unless (Log::Log4perl->initialized()) {
Log::Log4perl->init( $WebGUI::Session::session{config}{webguiRoot}."/etc/log.conf" );
}
return Log::Log4perl->get_logger($WebGUI::Session::session{config}{configFile});
}

2
lib/WebGUI/SQL.pm
View file

@ -608,7 +608,7 @@ The database handler. Defaults to the WebGUI database handler.
sub quote {
my $value = shift;
return "''" unless $value;
return "''" unless defined $value;
my $dbh = shift || _getDefaultDb();
return $dbh->quote($value);
}

7
sbin/preload.perl
View file

@ -11,6 +11,13 @@ use strict;
print "\nStarting WebGUI ".$WebGUI::VERSION."\n";
#----------------------------------------
# Logger
#----------------------------------------
use Log::Log4perl;
Log::Log4perl->init( $webguiRoot."/etc/log.conf" );
#----------------------------------------
# Database connectivity.
#----------------------------------------