From ecae360a86f69d25f4f2191b214ba7e333f72768 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 23 Jan 2007 06:53:58 +0000
Subject: Fixed date NULL issues in HR.pm

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@777 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 1 +
 LedgerSMB/HR.pm   | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 65923296..9561f7de 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -2856,6 +2856,7 @@ sub db_prepare_vars {
 
 	for (@_){
 		if (!$self->{$_} and $self->{$_} ne "0"){
+			print "Undef'ing $_";
 			undef $self->{$_};
 		}
 	}
diff --git a/LedgerSMB/HR.pm b/LedgerSMB/HR.pm
index 0b08b13f..186ac752 100755
--- a/LedgerSMB/HR.pm
+++ b/LedgerSMB/HR.pm
@@ -154,7 +154,9 @@ sub save_employee {
 		       managerid = ?
 		 WHERE id = ?|;
 	$sth = $dbh->prepare($query);
-	$form->db_prepare_vars('dob', 'startdate', 'enddate');
+	$form->{dob} ||= undef;
+	$form->{startdate} ||= undef;
+	$form->{enddate} ||= undef;
 	$sth->execute(
 					$form->{employeenumber}, $form->{name}, $form->{address1},
 					$form->{address2}, $form->{city}, $form->{state},
-- 
cgit v1.2.3