fix Log::Log4perl line reporting

This commit is contained in:
Colin Kuskie 2008-07-24 16:38:28 +00:00
parent 48c1c7814b
commit 026e77663e
2 changed files with 3 additions and 5 deletions

View file

@ -27,6 +27,7 @@
- fixed: EMS Ticket Meta Fields- Can't Delete - fixed: EMS Ticket Meta Fields- Can't Delete
- fixed: Ribbons and Tokens on badge page error - fixed: Ribbons and Tokens on badge page error
- fixed: Variable 'description' not filled in RSS templates - fixed: Variable 'description' not filled in RSS templates
- fixed: logging reports incorrect location
7.5.17 7.5.17
- fixed: Payment Methods Hover Help Incomplete - fixed: Payment Methods Hover Help Incomplete

View file

@ -160,7 +160,6 @@ Deconstructor.
sub DESTROY { sub DESTROY {
my $self = shift; my $self = shift;
$Log::Log4perl::caller_depth--;
undef $self; undef $self;
} }
@ -302,10 +301,8 @@ An active WebGUI::Session object.
sub new { sub new {
my $class = shift; my $class = shift;
my $session = shift; my $session = shift;
unless (Log::Log4perl->initialized()) { $Log::Log4perl::caller_depth=1;
$Log::Log4perl::caller_depth++; Log::Log4perl->init_once( $session->config->getWebguiRoot."/etc/log.conf" );
Log::Log4perl->init( $session->config->getWebguiRoot."/etc/log.conf" );
}
my $logger = Log::Log4perl->get_logger($session->config->getFilename); my $logger = Log::Log4perl->get_logger($session->config->getFilename);
bless {_queryCount=>0, _logger=>$logger, _session=>$session}, $class; bless {_queryCount=>0, _logger=>$logger, _session=>$session}, $class;
} }