diff options
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/Form.pm | 1 | ||||
| -rwxr-xr-x | LedgerSMB/HR.pm | 4 |
2 files changed, 4 insertions, 1 deletions
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}, |