From 83ab8ea91402671c3859c556054917b0eee6cca3 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Tue, 21 Aug 2007 14:02:46 +0000 Subject: [PATCH] rfe patch: userImport.pl able to import a date for date of birth --- sbin/userImport.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/sbin/userImport.pl b/sbin/userImport.pl index 5b1514cab..96245b426 100644 --- a/sbin/userImport.pl +++ b/sbin/userImport.pl @@ -15,9 +15,10 @@ BEGIN { unshift (@INC, $webguiRoot."/lib"); } +use strict; use Digest::MD5; use Getopt::Long; -use strict; +use WebGUI::DateTime; use WebGUI::Group; use WebGUI::Session; use WebGUI::User; @@ -244,6 +245,9 @@ while() { $user{status} = $status if ($user{status} eq ""); $user{expireOffset} = $expireOffset if ($user{expireOffset} eq ""); $user{expireOffset} = calculateExpireOffset($user{expireOffset},$expireUnits); + if ($user{birthdate}) { + $user{birthdate} = WebGUI::DateTime->new($user{birthdate}." 00:00:00")->epoch(); + } if ($user{changePassword} eq "") { if ($canChangePass) { $user{changePassword} = 1;