SF.net SVN: ledger-smb: [745] trunk/LedgerSMB

[..hidden..]

Revision: 745
          http://svn.sourceforge.net/ledger-smb/?rev=745&view=rev
Author:   tetragon
Date:     2006-12-07 15:23:07 -0800 (Thu, 07 Dec 2006)

Log Message:
-----------
Fix date undefs for editing employees

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm
    trunk/LedgerSMB/HR.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2006-12-07 21:36:45 UTC (rev 744)
+++ trunk/LedgerSMB/Form.pm	2006-12-07 23:23:07 UTC (rev 745)
@@ -2854,6 +2854,8 @@
 }
 
 sub db_prepare_vars {
+	my $self = shift;
+
 	for (@_){
 		if (!$self->{$_} and $self->{$_} ne "0"){
 			undef $self->{$_};

Modified: trunk/LedgerSMB/HR.pm
===================================================================
--- trunk/LedgerSMB/HR.pm	2006-12-07 21:36:45 UTC (rev 744)
+++ trunk/LedgerSMB/HR.pm	2006-12-07 23:23:07 UTC (rev 745)
@@ -154,7 +154,7 @@
 		       managerid = ?
 		 WHERE id = ?|;
 	$sth = $dbh->prepare($query);
-	$form->db_prepare_vars('startdate', 'enddate');
+	$form->db_prepare_vars('dob', 'startdate', 'enddate');
 	$sth->execute(
 					$form->{employeenumber}, $form->{name}, $form->{address1},
 					$form->{address2}, $form->{city}, $form->{state},


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.