User grant logging clarification

Author: eduard93

MDX2JSON/Installer.cls.xml

@@ -63,7 +63,7 @@ todo add optional parameter WEBAPP to Alter web app name if it needs to have ano
 <RunInstall Class="MDX2JSON.Installer" Method="GrantSelectToUserInstaller"/>
 <Log Text="User modifyed/created and granted SELECT access to all tables in ${Namespace}" Level="0"/>
 <RunInstall Class="MDX2JSON.Installer" Method="GrantExecuteToUserInstaller"/>
-<Log Text="User modifyed/created and granted EXECUTE access to all procedures in ${Namespace}" Level="0"/>
+<Log Text="User modifyed/created and granted EXECUTE access to all procedures of MDX2JSON package in ${Namespace}" Level="0"/>
 </IfDef> 
 <IfNotDef Var="Password">
 <Log Text="You specified username but not a password" Level="0"/>
@@ -430,7 +430,7 @@ Grant select access to User to all tables in comma-separated list of namespaces<
 
 <Method name="GrantExecuteToUser">
 <Description>
-Grant select access to User to all tables in comma-separated list of namespaces</Description>
+Grant EXECUTE access to User to all procedures of MDX2JSON package in comma-separated list of namespaces</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>User:%String,NamespacesList:%String="*"</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -440,11 +440,7 @@ Grant select access to User to all tables in comma-separated list of namespaces<
 	set st = $$$OK
 	for i=1:1:$l(NamespacesList,",") {
 		zn $p(NamespacesList,",",i)
-		/*set st1 = $SYSTEM.SQL.GrantObjPriv("EXECUTE","MDX2JSON.ResolveText","STORED PROCEDURES",User)
-		set st2 = $SYSTEM.SQL.GrantObjPriv("EXECUTE","MDX2JSON.IsItemVisible","STORED PROCEDURES",User)
-		set st3 = $SYSTEM.SQL.GrantObjPriv("EXECUTE","MDX2JSON.GetDashCover","STORED PROCEDURES",User)
-		set st = $$$ADDSC(st1,$$$ADDSC(st2,st3))*/
-		set sql = "GRANT EXECUTE ON MDX2JSON.ResolveText,MDX2JSON.IsItemVisible,MDX2JSON.GetDashCover to " _ User
+		set sql = "GRANT EXECUTE ON MDX2JSON.ResolveText,MDX2JSON.IsItemVisible,MDX2JSON.GetDashCover TO " _ User
 		set statement = ##class(%SQL.Statement).%New()
 		set st = statement.%Prepare(sql)
 		return:$$$ISERR(st) st