fix: change _MODULE -> ModuleItem

For consistency with SqlTableName of %IPM.Storage.Module
intersystems · Apr 12, 2024 · 26f18bc · 26f18bc
1 parent ade393e
commit 26f18bc
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git a/src/cls/IPM/ExtensionBase/Utils.cls b/src/cls/IPM/ExtensionBase/Utils.cls
@@ -117,7 +117,7 @@ ClassMethod FindHomeModule(pInternalName As %String, Output pResourceName As %St
 		// Try to find in specific resources
 		Set tProcessorClass = "LegacyLocalizedMessages"
 		Set tProcessorClassFullForm = $$$DefaultProcessorPackageDot_tProcessorClass
-		Set tQuery = "SELECT ID, Name, _Module FROM %IPM_Storage.ResourceReference "_
+		Set tQuery = "SELECT ID, Name, ModuleItem FROM %IPM_Storage.ResourceReference "_
 			"WHERE ProcessorClass = '"_tProcessorClass_"' "_
 			"OR ProcessorClass = '"_tProcessorClassFullForm_"'"
 		#dim tResultSet As %SQL.StatementResult
@@ -145,7 +145,7 @@ ClassMethod FindHomeModule(pInternalName As %String, Output pResourceName As %St
 				// Found matching module so return
 				Set pResourceReference = tReference
 				Set pResourceName = tResultSet.%Get("Name")
-				Return ##class(%IPM.Storage.Module).%OpenId(tResultSet.%Get("_Module"))
+				Return ##class(%IPM.Storage.Module).%OpenId(tResultSet.%Get("ModuleItem"))
 			}
 		}
 		$$$ThrowOnError(tSC)

diff --git a/src/cls/IPM/Storage/InvokeReference.cls b/src/cls/IPM/Storage/InvokeReference.cls
@@ -17,7 +17,7 @@ Property CheckStatus As %Boolean(XMLPROJECTION = "ATTRIBUTE") [ InitialExpressio
 
 Property Arg As list Of %String(MAXLEN = 255, XMLNAME = "Arg", XMLPROJECTION = "ELEMENT");
 
-Relationship Module As %IPM.Storage.Module(XMLPROJECTION = "NONE") [ Cardinality = parent, Inverse = Invokes, SqlFieldName = _MODULE ];
+Relationship Module As %IPM.Storage.Module(XMLPROJECTION = "NONE") [ Cardinality = parent, Inverse = Invokes, SqlFieldName = ModuleItem ];
 
 Method GetArgsArray(pParams, Output args) As %Status
 {

diff --git a/src/cls/IPM/Storage/MappingReference.cls b/src/cls/IPM/Storage/MappingReference.cls
@@ -10,7 +10,7 @@ Property Name As %String(MAXLEN = 2048, XMLPROJECTION = "attribute") [ Required
 /// Name index is unique per namespace.
 Index ResourceName On (Name, Source);
 
-Relationship Module As %IPM.Storage.Module(XMLPROJECTION = "NONE") [ Cardinality = parent, Inverse = Mappings, SqlFieldName = _MODULE ];
+Relationship Module As %IPM.Storage.Module(XMLPROJECTION = "NONE") [ Cardinality = parent, Inverse = Mappings, SqlFieldName = ModuleItem ];
 
 /// Database from which it is mapped or copied
 Property Source As %String(MAXLEN = 64, XMLPROJECTION = "ATTRIBUTE");

diff --git a/src/cls/IPM/Storage/ResourceReference.cls b/src/cls/IPM/Storage/ResourceReference.cls
@@ -14,7 +14,7 @@ Property Name As %String(MAXLEN = 255, XMLPROJECTION = "attribute") [ Required ]
 /// Name index is unique per namespace.
 Index ResourceName On UniqueName [ Unique ];
 
-Relationship Module As %IPM.Storage.Module(XMLPROJECTION = "NONE") [ Cardinality = parent, Inverse = Resources, SqlFieldName = _MODULE ];
+Relationship Module As %IPM.Storage.Module(XMLPROJECTION = "NONE") [ Cardinality = parent, Inverse = Resources, SqlFieldName = ModuleItem ];
 
 /// Restrict the scope in which this resource is included. Default is "all scopes"
 Property Scope As %String(VALUELIST = ",test,verify", XMLPROJECTION = "ATTRIBUTE");
@@ -437,7 +437,7 @@ Trigger OnChange [ Event = INSERT/UPDATE, Foreach = row/object, Time = AFTER ]
 		If $Data($$$ZPMDeferModifyResources) {
 			Quit
 		}
-		Set tModule = ##class(%IPM.Storage.Module).%OpenId({_Module},,.tSC)
+		Set tModule = ##class(%IPM.Storage.Module).%OpenId({ModuleItem},,.tSC)
 		If $$$ISERR(tSC) {
 			Quit
 		}