---
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
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
