added some NOT_FOUND events for record, copy, and circ (more to come)
authorerickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Wed, 14 Dec 2005 15:43:23 +0000 (15:43 +0000)
committererickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Wed, 14 Dec 2005 15:43:23 +0000 (15:43 +0000)
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

index f2a3ab7..dcc0c58 100644 (file)
@@ -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 /;
 =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
 
 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
 
 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;     }
 # log levels
 sub ACTIVITY   { return -1; }
 sub NONE                       { return 0;     }