diff options
Diffstat (limited to 'lib/AdminPanel/Shared/Users.pm')
| -rw-r--r-- | lib/AdminPanel/Shared/Users.pm | 8 |
1 files changed, 8 insertions, 0 deletions
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; |