Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 6 additions & 0 deletions src/System Application/App/Azure AD Graph/app.json
Original file line number Diff line number Diff line change
Expand Up @@ -22,6 +22,12 @@
"name": "DotNet Aliases",
"publisher": "Microsoft",
"version": "27.3.0.0"
},
{
"id": "1a023056-d6fe-41af-a16e-da7d678cf266",
"name": "Server Settings",
"publisher": "Microsoft",
"version": "27.3.0.0"
}
],
"internalsVisibleTo": [
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,7 @@ namespace System.Azure.Identity;

using System;
using System.Environment;
using System.Environment.Configuration;

codeunit 9014 "Azure AD Graph Impl."
{
Expand Down Expand Up @@ -262,9 +263,10 @@ codeunit 9014 "Azure AD Graph Impl."
[NonDebuggable]
local procedure Initialize(): Boolean
var
ServerSetting: Codeunit "Server Setting";
Handled: Boolean;
begin
if not EnvironmentInformation.IsSaaS() then
if not (EnvironmentInformation.IsSaaS() or ServerSetting.GetEnableEntraGroupsOnPrem()) then
exit(false);

if IsGraphInitialized then
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -35,6 +35,14 @@ codeunit 6723 "Server Setting"
exit(ServerSettingImpl.GetIsSaasExcelAddinEnabled());
end;

/// <summary>Checks whether Entra Groups are enabled on-premises.</summary>
/// <returns>True if enabled; otherwise, false.</returns>
/// <remarks>Gets the value of the server setting EnableEntraGroupsOnPrem.</remarks>
procedure GetEnableEntraGroupsOnPrem(): Boolean
begin
exit(ServerSettingImpl.GetEnableEntraGroupsOnPrem());
end;

/// <summary>Checks whether the API Services are enabled.</summary>
/// <returns>True if enabled; otherwise, false.</returns>
/// <remarks>Gets the value of the server setting ApiServicesEnabled.</remarks>
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -38,6 +38,13 @@ codeunit 3703 "Server Setting Impl."
exit(SaasExcelAddinEnabled);
end;

procedure GetEnableEntraGroupsOnPrem() EnableEntraGroupsOnPrem: Boolean
begin
InitializeConfigSettings();
EnableEntraGroupsOnPrem := ALConfigSettings.EnableEntraGroupsOnPrem();
exit(EnableEntraGroupsOnPrem);
end;

procedure GetApiServicesEnabled() ApiEnabled: Boolean
begin
InitializeConfigSettings();
Expand Down
Loading