Merge pull request #247 from mendixlabs/misc

Misc

Author: ako

mdl-examples/doctype-tests/01-domain-model-examples.mdl

@@ -1692,7 +1692,7 @@ create persistent entity DmTest.Attachment extends System.FileDocument (
  * plus adds metadata for product catalog display.
  */
 @position(2300, 200)
-create persistent entity DmTest.ProductPhoto extends System.image (
+create persistent entity DmTest.ProductPhoto extends System.Image (
   /** Photo caption for display */
   PhotoCaption: string(200),
   /** Display sort order */
@@ -1784,7 +1784,7 @@ create persistent entity DmTest.InternalDocument extends System.FileDocument;
  * Both keywords are supported; EXTENDS is preferred for new code.
  */
 @position(2300, 600)
-create persistent entity DmTest.ProfilePhoto generalization System.image (
+create persistent entity DmTest.ProfilePhoto generalization System.Image (
   /** Whether this photo has been approved by admin */
   IsApproved: boolean default false
 );

mdl-examples/doctype-tests/06-rest-client-examples.mdl

@@ -793,7 +793,7 @@ begin
   -- $latestHttpResponse is a system variable (System.HttpResponse) that is
   -- automatically populated after SEND REST REQUEST. Check its Content
   -- attribute to determine if the call returned data.
-  if $latestHttpResponse/content != empty then
+  if $latestHttpResponse/Content != empty then
     set $success = true;
     log info node 'RestTest' 'ACT_TestHeaders: headers echoed';
   else

mdl-examples/doctype-tests/08-security-examples.mdl

@@ -191,11 +191,11 @@ describe user role 'Administrator';
 /**
  * Create a simple module role without description.
  */
-create module role SecTest.user;
+create module role SecTest.User;
 /
 
 -- Describe a specific module role (shows DDL + which user roles include it)
-describe module role SecTest.user;
+describe module role SecTest.User;
 
 -- ============================================================================
 -- Level 2.2: Module Role with Description
@@ -235,7 +235,7 @@ create module role SecTest.Viewer description 'Read-only access for viewing data
 /**
  * Allow the User role to execute the customer creation microflow.
  */
-grant execute on microflow SecTest.ACT_Customer_Create to SecTest.user;
+grant execute on microflow SecTest.ACT_Customer_Create to SecTest.User;
 /
 
 -- Verify the grant
@@ -249,7 +249,7 @@ show access on microflow SecTest.ACT_Customer_Create;
 /**
  * Allow both User and Administrator roles to process orders.
  */
-grant execute on microflow SecTest.ACT_Order_Process to SecTest.user, SecTest.Administrator;
+grant execute on microflow SecTest.ACT_Order_Process to SecTest.User, SecTest.Administrator;
 /
 
 -- ============================================================================
@@ -269,7 +269,7 @@ grant execute on microflow SecTest.ACT_Customer_Delete to SecTest.Administrator;
 /**
  * Remove User's ability to process orders (admin-only now).
  */
-revoke execute on microflow SecTest.ACT_Order_Process from SecTest.user;
+revoke execute on microflow SecTest.ACT_Order_Process from SecTest.User;
 /
 
 -- Verify the revoke
@@ -290,7 +290,7 @@ revoke execute on microflow SecTest.ACT_Customer_Delete from SecTest.Administrat
 /**
  * Granting a role that already has access is a no-op (safe to repeat).
  */
-grant execute on microflow SecTest.ACT_Customer_Create to SecTest.user;
+grant execute on microflow SecTest.ACT_Customer_Create to SecTest.User;
 /
 
 
@@ -308,7 +308,7 @@ grant execute on microflow SecTest.ACT_Customer_Create to SecTest.user;
 /**
  * Allow users to view the customer overview page.
  */
-grant view on page SecTest.Customer_Overview to SecTest.user;
+grant view on page SecTest.Customer_Overview to SecTest.User;
 /
 
 -- Verify
@@ -322,7 +322,7 @@ show access on page SecTest.Customer_Overview;
 /**
  * Allow both users and administrators to view orders.
  */
-grant view on page SecTest.Order_Overview to SecTest.user, SecTest.Administrator;
+grant view on page SecTest.Order_Overview to SecTest.User, SecTest.Administrator;
 /
 
 -- ============================================================================
@@ -332,7 +332,7 @@ grant view on page SecTest.Order_Overview to SecTest.user, SecTest.Administrator
 /**
  * Remove User's view access on order overview (admin-only now).
  */
-revoke view on page SecTest.Order_Overview from SecTest.user;
+revoke view on page SecTest.Order_Overview from SecTest.User;
 /
 
 -- Verify - should only show Administrator
@@ -374,7 +374,7 @@ grant SecTest.Viewer on SecTest.Customer (read *);
 /**
  * Grant read access to specific attributes, write to a subset.
  */
-grant SecTest.user on SecTest.Customer (read (Name, Email), write (Email));
+grant SecTest.User on SecTest.Customer (read (Name, Email), write (Email));
 /
 
 -- ============================================================================
@@ -384,7 +384,7 @@ grant SecTest.user on SecTest.Customer (read (Name, Email), write (Email));
 /**
  * Grant access only to active customers using an XPath constraint.
  */
-grant SecTest.user on SecTest.Order (read *, write *) where '[Status = ''Open'']';
+grant SecTest.User on SecTest.Order (read *, write *) where '[Status = ''Open'']';
 /
 
 -- Verify entity access
@@ -398,7 +398,7 @@ show access on SecTest.Customer;
 /**
  * GRANT is additive: adding Notes access preserves existing Name and Email.
  */
-grant SecTest.user on SecTest.Customer (read (Notes));
+grant SecTest.User on SecTest.Customer (read (Notes));
 /
 
 -- ============================================================================
@@ -409,13 +409,13 @@ grant SecTest.user on SecTest.Customer (read (Notes));
  * Remove read access on a specific attribute (Notes).
  * Other permissions are preserved.
  */
-revoke SecTest.user on SecTest.Customer (read (Notes));
+revoke SecTest.User on SecTest.Customer (read (Notes));
 /
 
 /**
  * Downgrade write to read-only on Email.
  */
-revoke SecTest.user on SecTest.Customer (write (Email));
+revoke SecTest.User on SecTest.Customer (write (Email));
 /
 
 -- ============================================================================
@@ -446,7 +446,7 @@ show access on SecTest.Customer;
 /**
  * Create a user role and assign a single module role.
  */
-create or modify user role RegularUser (System.user, SecTest.user);
+create or modify user role RegularUser (System.User, SecTest.User);
 /
 
 -- ============================================================================
@@ -456,7 +456,7 @@ create or modify user role RegularUser (System.user, SecTest.user);
 /**
  * A user role can include roles from multiple modules.
  */
-create or modify user role PowerUser (System.user, SecTest.user, SecTest.Administrator);
+create or modify user role PowerUser (System.User, SecTest.User, SecTest.Administrator);
 /
 
 -- ============================================================================
@@ -607,7 +607,7 @@ create module role SecTest.Manager description 'Can manage customers and orders'
  * Step 2: Grant microflow access based on roles.
  * Users can create customers, managers and admins can do everything.
  */
-grant execute on microflow SecTest.ACT_Customer_Create to SecTest.user, SecTest.Manager;
+grant execute on microflow SecTest.ACT_Customer_Create to SecTest.User, SecTest.Manager;
 grant execute on microflow SecTest.ACT_Customer_Delete to SecTest.Manager, SecTest.Administrator;
 grant execute on microflow SecTest.ACT_Order_Process to SecTest.Manager, SecTest.Administrator;
 /
@@ -616,7 +616,7 @@ grant execute on microflow SecTest.ACT_Order_Process to SecTest.Manager, SecTest
  * Step 3: Grant page access based on roles.
  * All roles can see customers, only managers+ can see orders.
  */
-grant view on page SecTest.Customer_Overview to SecTest.user, SecTest.Manager, SecTest.Administrator;
+grant view on page SecTest.Customer_Overview to SecTest.User, SecTest.Manager, SecTest.Administrator;
 grant view on page SecTest.Order_Overview to SecTest.Manager, SecTest.Administrator;
 /
 
@@ -648,8 +648,8 @@ show access on page SecTest.Order_Overview;
 -- When a module has partial access rules (not all entities covered by all
 -- roles), MxBuild reports CE0066 regardless of security level.
 revoke SecTest.Administrator on SecTest.Customer;
-revoke SecTest.user on SecTest.Customer;
-revoke SecTest.user on SecTest.Order;
+revoke SecTest.User on SecTest.Customer;
+revoke SecTest.User on SecTest.Order;
 revoke SecTest.Manager on SecTest.Customer;
 
 

mdl-examples/doctype-tests/12-styling-examples.mdl

@@ -154,7 +154,7 @@ create page StyleTest.P003_Design_Properties
 (
   title: 'Design Properties',
   layout: Atlas_Core.Atlas_Default,
-  url: 'style_003_design_properties/{Task}',
+  url: 'style_003_design_properties/{task}',
   params: { $task: StyleTest.task }
 )
 {

mdl-examples/doctype-tests/14-project-settings-examples.mdl

@@ -124,7 +124,7 @@ drop configuration 'Staging';
 /**
  * Example 4.1: Set default language
  */
-alter settings LANGUAGE DefaultLanguageCode = 'en_US';
+alter settings language DefaultLanguageCode = 'en_US';
 
 /**
  * Example 4.2: Configure workflow settings

mdl-examples/doctype-tests/alter-workflow.mdl

@@ -65,13 +65,13 @@ end;
 
 -- Targeting microflow: (System.Workflow, context) -> List of System.User
 create microflow WFTest.ACT_TargetUsers (
-  $workflow: System.workflow,
+  $workflow: System.Workflow,
   $context: WFTest.OrderContext
 )
-returns list of System.user as $users
+returns list of System.User as $users
 begin
   @position(200,200)
-  retrieve $users from System.user;
+  retrieve $users from System.User;
   @position(400,200) return $users;
 end;
 /
@@ -109,7 +109,7 @@ create page WFTest.AlternateTaskPage (
 create page WFTest.OverviewPage (
   title: 'Workflow Overview',
   layout: Atlas_Core.Atlas_Default,
-  params: { $workflow: System.workflow }
+  params: { $workflow: System.Workflow }
 ) {
   layoutgrid g1 {
     row r1 {

mdl-examples/doctype-tests/workflow-microflow-actions.mdl

@@ -29,7 +29,7 @@ end workflow;
 -- ############################################################################
 
 create microflow TestModule.MF_WorkflowActions (
-  $workflow: System.workflow,
+  $workflow: System.Workflow,
   $ContextObj: TestModule.DeliveryContext,
   $UserTask: System.WorkflowUserTask
 )

mdl-examples/mes/02-catalog-domain-model.mdl

@@ -151,7 +151,7 @@ index (SKU);
  */
 @position(350, 250)
 create persistent entity ProductCatalog.ProductImage
-extends System.image (
+extends System.Image (
   /** Caption describing the image */
   ImageCaption: string(500),
   /** Whether this is the primary display image */

mdl/backend/mpr/workflow_mutator.go

@@ -85,11 +85,11 @@ func (m *mprWorkflowMutator) SetProperty(prop string, value string) error {
 		}
 		return nil
 
-	case "EXPORT_LEVEL":
+	case "export_level":
 		dSet(m.rawData, "ExportLevel", value)
 		return nil
 
-	case "DUE_DATE":
+	case "due_date":
 		dSet(m.rawData, "DueDate", value)
 		return nil
 
@@ -100,7 +100,7 @@ func (m *mprWorkflowMutator) SetProperty(prop string, value string) error {
 
 func (m *mprWorkflowMutator) SetPropertyWithEntity(prop string, value string, entity string) error {
 	switch prop {
-	case "OVERVIEW_PAGE":
+	case "overview_page":
 		if value == "" {
 			dSet(m.rawData, "AdminPage", nil)
 		} else {
@@ -180,7 +180,7 @@ func (m *mprWorkflowMutator) SetActivityProperty(activityRef string, atPos int,
 		}
 		return nil
 
-	case "TARGETING_MICROFLOW":
+	case "targeting_microflow":
 		userTargeting := bson.D{
 			{Key: "$ID", Value: bsonutil.NewIDBsonBinary()},
 			{Key: "$Type", Value: "Workflows$MicroflowUserTargeting"},
@@ -189,7 +189,7 @@ func (m *mprWorkflowMutator) SetActivityProperty(activityRef string, atPos int,
 		dSet(actDoc, "UserTargeting", userTargeting)
 		return nil
 
-	case "TARGETING_XPATH":
+	case "targeting_xpath":
 		userTargeting := bson.D{
 			{Key: "$ID", Value: bsonutil.NewIDBsonBinary()},
 			{Key: "$Type", Value: "Workflows$XPathUserTargeting"},
@@ -198,7 +198,7 @@ func (m *mprWorkflowMutator) SetActivityProperty(activityRef string, atPos int,
 		dSet(actDoc, "UserTargeting", userTargeting)
 		return nil
 
-	case "DUE_DATE":
+	case "due_date":
 		dSet(actDoc, "DueDate", value)
 		return nil
 

mdl/backend/mpr/workflow_mutator_test.go

@@ -183,7 +183,7 @@ func TestWorkflowMutator_SetProperty_ExportLevel(t *testing.T) {
 	doc = append(doc, bson.E{Key: "ExportLevel", Value: "Usable"})
 	m := newMutator(doc)
 
-	if err := m.SetProperty("EXPORT_LEVEL", "Hidden"); err != nil {
+	if err := m.SetProperty("export_level", "Hidden"); err != nil {
 		t.Fatalf("SetProperty EXPORT_LEVEL failed: %v", err)
 	}
 	if got := dGetString(m.rawData, "ExportLevel"); got != "Hidden" {
@@ -436,7 +436,7 @@ func TestWorkflowMutator_SetActivityProperty_DueDate(t *testing.T) {
 	act = append(act, bson.E{Key: "DueDate", Value: ""})
 	m := newMutator(makeWorkflowDoc(act))
 
-	if err := m.SetActivityProperty("Review", 0, "DUE_DATE", "${PT48H}"); err != nil {
+	if err := m.SetActivityProperty("Review", 0, "due_date", "${PT48H}"); err != nil {
 		t.Fatalf("SetActivityProperty DUE_DATE failed: %v", err)
 	}
 
@@ -1220,7 +1220,7 @@ func TestWorkflowMutator_SetActivityProperty_TargetingMicroflow(t *testing.T) {
 	act = append(act, bson.E{Key: "UserTargeting", Value: nil})
 	m := newMutator(makeWorkflowDoc(act))
 
-	if err := m.SetActivityProperty("Review", 0, "TARGETING_MICROFLOW", "MyModule.AssignReviewer"); err != nil {
+	if err := m.SetActivityProperty("Review", 0, "targeting_microflow", "MyModule.AssignReviewer"); err != nil {
 		t.Fatalf("SetActivityProperty TARGETING_MICROFLOW failed: %v", err)
 	}
 
@@ -1242,7 +1242,7 @@ func TestWorkflowMutator_SetActivityProperty_TargetingXPath(t *testing.T) {
 	act = append(act, bson.E{Key: "UserTargeting", Value: nil})
 	m := newMutator(makeWorkflowDoc(act))
 
-	if err := m.SetActivityProperty("Review", 0, "TARGETING_XPATH", "[Role = 'Admin']"); err != nil {
+	if err := m.SetActivityProperty("Review", 0, "targeting_xpath", "[Role = 'Admin']"); err != nil {
 		t.Fatalf("SetActivityProperty TARGETING_XPATH failed: %v", err)
 	}
 
@@ -1265,7 +1265,7 @@ func TestWorkflowMutator_SetPropertyWithEntity_OverviewPage(t *testing.T) {
 	doc = append(doc, bson.E{Key: "AdminPage", Value: nil})
 	m := newMutator(doc)
 
-	if err := m.SetPropertyWithEntity("OVERVIEW_PAGE", "MyModule.OverviewPage", ""); err != nil {
+	if err := m.SetPropertyWithEntity("overview_page", "MyModule.OverviewPage", ""); err != nil {
 		t.Fatalf("SetPropertyWithEntity OVERVIEW_PAGE failed: %v", err)
 	}
 
@@ -1285,7 +1285,7 @@ func TestWorkflowMutator_SetPropertyWithEntity_OverviewPage_Clear(t *testing.T)
 	}})
 	m := newMutator(doc)
 
-	if err := m.SetPropertyWithEntity("OVERVIEW_PAGE", "", ""); err != nil {
+	if err := m.SetPropertyWithEntity("overview_page", "", ""); err != nil {
 		t.Fatalf("SetPropertyWithEntity clear failed: %v", err)
 	}