From 432578cea422879f2ed78c1418fb560eb433d410 Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 14 Dec 2005 15:43:23 +0000 Subject: [PATCH] added some NOT_FOUND events for record, copy, and circ (more to come) moved over some of the circ code to using the events and utility methods defined by apputils added some utility methods to apputils now exporting $logger var from the logger code git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@614 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perlmods/OpenSRF/Utils/Logger.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/perlmods/OpenSRF/Utils/Logger.pm b/src/perlmods/OpenSRF/Utils/Logger.pm index f2a3ab7..dcc0c58 100644 --- a/src/perlmods/OpenSRF/Utils/Logger.pm +++ b/src/perlmods/OpenSRF/Utils/Logger.pm @@ -24,8 +24,9 @@ i.e. $logger->error( $msg, WARN ); # logs at log level WARN =cut @EXPORT_OK = qw/ NONE ERROR WARN INFO DEBUG INTERNAL /; +push @EXPORT_OK, '$logger'; -%EXPORT_TAGS = ( level => [ qw/ NONE ERROR WARN INFO DEBUG INTERNAL / ] ); +%EXPORT_TAGS = ( level => [ qw/ NONE ERROR WARN INFO DEBUG INTERNAL / ], logger => [ '$logger' ] ); my $config; # config handle my $loglevel; # global log level @@ -40,6 +41,8 @@ my $logfile_enabled = 1; # are we logging to a file? my $act_logfile_enabled = 1; # are we logging to a file? my $logdir; # log file directory +our $logger = "OpenSRF::Utils::Logger"; + # log levels sub ACTIVITY { return -1; } sub NONE { return 0; } -- 2.43.2