SF.net SVN: ledger-smb: [746] branches/1.2/LedgerSMB

[..hidden..]

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

Log Message:
-----------
Fix date undefs for HR.pm

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm
    branches/1.2/LedgerSMB/HR.pm

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2006-12-07 23:23:07 UTC (rev 745)
+++ branches/1.2/LedgerSMB/Form.pm	2006-12-07 23:25:10 UTC (rev 746)
@@ -2861,6 +2861,8 @@
 }
 
 sub db_prepare_vars {
+	my $self = shift;
+
 	for (@_){
 		if (!$self->{$_} and $self->{$_} ne "0"){
 			undef $self->{$_};

Modified: branches/1.2/LedgerSMB/HR.pm
===================================================================
--- branches/1.2/LedgerSMB/HR.pm	2006-12-07 23:23:07 UTC (rev 745)
+++ branches/1.2/LedgerSMB/HR.pm	2006-12-07 23:25:10 UTC (rev 746)
@@ -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.