|
Lines 20-26
use strict;
Link Here
|
| 20 |
use warnings; |
20 |
use warnings; |
| 21 |
use vars qw($VERSION $AUTOLOAD $context @context_stack $servers $memcached $ismemcached); |
21 |
use vars qw($VERSION $AUTOLOAD $context @context_stack $servers $memcached $ismemcached); |
| 22 |
|
22 |
|
| 23 |
use Koha::Utils::Logger; |
23 |
eval{ |
|
|
24 |
require Koha::Utils::Logger; |
| 25 |
}; |
| 26 |
die "The logging system is broken. Please check that Log::LogLite is installed." if $@; |
| 24 |
|
27 |
|
| 25 |
BEGIN { |
28 |
BEGIN { |
| 26 |
if ($ENV{'HTTP_USER_AGENT'}) { |
29 |
if ($ENV{'HTTP_USER_AGENT'}) { |
|
Lines 1206-1212
sub logger
Link Here
|
| 1206 |
my $sth; |
1209 |
my $sth; |
| 1207 |
|
1210 |
|
| 1208 |
if ( defined( $context->{"logger"} ) ) { |
1211 |
if ( defined( $context->{"logger"} ) ) { |
| 1209 |
return $context->{"logger"}; |
1212 |
return $context->{"logger"}; |
| 1210 |
} |
1213 |
} |
| 1211 |
|
1214 |
|
| 1212 |
$context->{"logger"} = Koha::Utils::Logger->new( |
1215 |
$context->{"logger"} = Koha::Utils::Logger->new( |
| 1213 |
- |
|
|