Fixing IR, IS, and CT bugs

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@382 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 9 insertions, 2 deletions

diff --git a/LedgerSMB/CT.pm b/LedgerSMB/CT.pm
index 884e453c..f3df8113 100755
--- a/LedgerSMB/CT.pm
+++ b/LedgerSMB/CT.pm
@@ -316,7 +316,7 @@ sub save_customer {
 		       phone = ?,
 		       fax = ?,
 		       email = ?,
-		       cc = '?,
+		       cc = ?,
 		       bcc = ?,
 		       notes = ?,
 		       discount = ?,
@@ -337,6 +337,12 @@ sub save_customer {
 		 WHERE id = ?|;
 
 	$sth = $dbh->prepare($query);
+	if (!$form->{startdate}){
+		undef $form->{startdate};
+	}
+	if (!$form->{enddate}){
+		undef $form->{enddate};
+	}
 	$sth->execute(
 		$form->{customernumber}, $form->{name}, $form->{address1},
 		$form->{address2}, $form->{city}, $form->{state}, 
@@ -345,7 +351,8 @@ sub save_customer {
 		$form->{bcc}, $form->{notes}, $form->{discount}, 
 		$form->{creditlimit}, $form->{terms}, $form->{taxincluded},
 		$business_id, $form->{taxnumber}, $form->{sic_code}, 
-		$form->{iban}, $form->{bic}, $employee_id, $language_code, 
+		$form->{iban}, $form->{bic}, $employee_id,  $pricegroup_id,
+		$language_code, 
 		$form->{curr}, $form->{startdate}, $form->{enddate},
 		$form->{id})
 			|| $form->dberror($query);