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

a little cleaner

Browse source
This commit is contained in:
JT Smith 2006-01-18 21:46:38 +00:00
parent 1fdc49b3bf
commit 3fb4d33817
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Session/ErrorHandler.pm
View file

@ -321,7 +321,7 @@ sub new {
Log::Log4perl->init( $session->config->getWebguiRoot."/etc/log.conf" );
}
my $logger = Log::Log4perl->get_logger($session->config->getFilename);
bless {_logger=>$logger, _session=>$session}, $class;
bless {_queryCount=>0, _logger=>$logger, _session=>$session}, $class;
}
#-------------------------------------------------------------------
@ -338,9 +338,8 @@ A sql statement string.
sub query {
my $self = shift;
$self->{_query} = 0 unless $self->{_query};
$self->{_query} = $self->{_query} + 1;
$self->debug("query ".$self->{_query}.' '.shift);
$self->{_queryCount}++;
$self->debug("query ".$self->{_queryCount}.': '.shift);
}