fixed a bug in SQL::quote

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

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});
}