Adding drop down box to set primary entity class for companies.

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

1 files changed, 12 insertions, 1 deletions

diff --git a/UI/Contact/contact.html b/UI/Contact/contact.html
index 2ccd5491..3b69c902 100644
--- a/UI/Contact/contact.html
+++ b/UI/Contact/contact.html
@@ -166,7 +166,18 @@ problems with multi-word single-quoted constructs in PI tags. -CT  -->
 		name = "control_code"
 		value = control_code
 		size = "20"
-	} ?><?lsmb PROCESS button element_data = {
+	} ?>
+	<?lsmb IF !created_as_class;
+		created_as_class = entity_class;
+	END; # IF !created_as_class ?> 
+	<?lsmb PROCESS select element_data = {
+		name = "created_as_class"
+		options = entity_classes
+		default_values = [created_as_class]
+		text_attr = 'class'
+		value_attr = 'id'	
+	} ?>
+	<?lsmb PROCESS button element_data = {
 		text = text('Generate')
 		type = "submit"
 		name = "action"