From e59223e7737d9d85fdbb155ad30c2172f81e9774 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Tue, 14 Oct 2014 22:42:03 +0200
Subject: fixed user change name and expirirng time

---
 lib/AdminPanel/Shared/Users.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/AdminPanel/Shared')

diff --git a/lib/AdminPanel/Shared/Users.pm b/lib/AdminPanel/Shared/Users.pm
index 94077343..73322cd2 100644
--- a/lib/AdminPanel/Shared/Users.pm
+++ b/lib/AdminPanel/Shared/Users.pm
@@ -1597,6 +1597,14 @@ sub Add2UsersGroup {
     return $usersgroup->Gid($self->USER_GetValue);
 }
 
+sub _ConvTime {
+    my ($day, $month, $year) = @_;
+    my ($tm, $days, $mon, $yr);
+    $mon = $month - 1; $yr = $year - 1900;
+    $tm = POSIX::mktime(0, 0, 0, $day, $mon, $yr);
+    $days = ceil($tm / (24 * 60 * 60));
+    return $days;
+}
 
 no Moose;
 __PACKAGE__->meta->make_immutable;
-- 
cgit v1.2.1