From f071e06733f464fae62de7a44e7d4a44bdda79fa Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:52:59 -0600 Subject: [PATCH] Log.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Log.pm | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) diff --git a/C4/Log.pm b/C4/Log.pm index c6ee75019f..e3ac75a33a 100644 --- a/C4/Log.pm +++ b/C4/Log.pm @@ -1,4 +1,4 @@ -package C4::Log; #assumes C4/Log +package C4::Log; #package to deal with Logging Actions in DB @@ -24,12 +24,15 @@ use strict; use C4::Context; use C4::Dates qw(format_date); -require Exporter; - use vars qw($VERSION @ISA @EXPORT); -# set the version for version checking -$VERSION = 3.01; +BEGIN { + # set the version for version checking + $VERSION = 3.01; + require Exporter; + @ISA = qw(Exporter); + @EXPORT = qw(&logaction &GetLogStatus &displaylog &GetLogs); +} =head1 NAME @@ -47,11 +50,6 @@ The functions in this module perform various functions in order to log all the o =over 2 -=cut - -@ISA = qw(Exporter); -@EXPORT = qw(&logaction &GetLogStatus &displaylog &GetLogs); - =item logaction &logaction($usernumber, $modulename, $actionname, $objectnumber, $infos); @@ -216,8 +214,6 @@ sub GetLogs { return \@logs; } -END { } # module clean-up code here (global destructor) - 1; __END__ -- 2.39.5