[Koha-patches] [PATCH] Use strftime to format sessionlog times

[MJ Ray]

---
 C4/Auth.pm |    9 +++++----
 1 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/C4/Auth.pm b/C4/Auth.pm
index 86ba9de..8f6a388 100644
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -32,6 +32,7 @@ use C4::Members;
 use C4::Koha;
 use C4::Branch; # GetBranches
 use C4::VirtualShelves;
+use POSIX qw/strftime/;
 
 # use utf8;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap);
@@ -549,7 +550,7 @@ sub checkauth {
             $session->flush;      
             $session->delete();
             C4::Context->_unset_userenv($sessionID);
-            _session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,localtime);
+            _session_log(sprintf "%20s from %16s logged out at %30s (manually).\n", $userid,$ip,(strftime "%c",localtime));
             $sessionID = undef;
             $userid    = undef;
         }
@@ -558,7 +559,7 @@ sub checkauth {
 			$info{'timed_out'} = 1;
 			$session->delete();
 			C4::Context->_unset_userenv($sessionID);
-			_session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,localtime);
+			_session_log(sprintf "%20s from %16s logged out at %30s (inactivity).\n", $userid,$ip,(strftime "%c",localtime));
 			$userid    = undef;
 			$sessionID = undef;
 		}
@@ -569,7 +570,7 @@ sub checkauth {
 			$info{'different_ip'} = 1;
 			$session->delete();
 			C4::Context->_unset_userenv($sessionID);
-			_session_log(sprintf "%20s from %16s logged out at %30s (ip changed to %16s).\n", $userid,$ip,localtime, $info{'newip'});
+			_session_log(sprintf "%20s from %16s logged out at %30s (ip changed to %16s).\n", $userid,$ip,(strftime "%c",localtime), $info{'newip'});
 			$sessionID = undef;
 			$userid    = undef;
 		}
@@ -596,7 +597,7 @@ sub checkauth {
         	my $password = $query->param('password');
         	my ( $return, $cardnumber ) = checkpw( $dbh, $userid, $password );
         	if ($return) {
-            	_session_log(sprintf "%20s from %16s logged in  at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},localtime);
+            	_session_log(sprintf "%20s from %16s logged in  at %30s.\n", $userid,$ENV{'REMOTE_ADDR'},(strftime "%c",localtime));
             	if ( $flags = haspermission( $dbh, $userid, $flagsrequired ) ) {
 					$loggedin = 1;
             	}
-- 
1.5.3.7