diff --git a/src/System Application/App/User Settings/src/UserSettings.Page.al b/src/System Application/App/User Settings/src/UserSettings.Page.al index 783dd25ad4..3bcb650482 100644 --- a/src/System Application/App/User Settings/src/UserSettings.Page.al +++ b/src/System Application/App/User Settings/src/UserSettings.Page.al @@ -153,12 +153,8 @@ page 9204 "User Settings" trigger OnQueryClosePage(CloseAction: Action): Boolean begin - if CloseAction = Action::OK then begin - if OldUserSettings."Legacy Action Bar" <> Rec."Legacy Action Bar" then - if Rec."Legacy Action Bar" then - UserSettingsImpl.ShowLegacyActionBarSurvey(); + if CloseAction = Action::OK then UserSettingsImpl.UpdateUserSettings(OldUserSettings, Rec); - end; end; var diff --git a/src/System Application/App/User Settings/src/UserSettingsImpl.Codeunit.al b/src/System Application/App/User Settings/src/UserSettingsImpl.Codeunit.al index 16a649ee3f..74c4d40e0f 100644 --- a/src/System Application/App/User Settings/src/UserSettingsImpl.Codeunit.al +++ b/src/System Application/App/User Settings/src/UserSettingsImpl.Codeunit.al @@ -8,7 +8,6 @@ namespace System.Environment.Configuration; using System; using System.Azure.Identity; using System.Environment; -using System.Feedback; using System.Reflection; using System.Security.AccessControl; using System.Security.User; @@ -421,24 +420,11 @@ codeunit 9175 "User Settings Impl." var ApplicationUserSettings: Record "Application User Settings"; begin - ShowLegacyActionBarSurvey(); GetAppSettings(UserSecurityID, ApplicationUserSettings); ApplicationUserSettings."Legacy Action Bar" := true; ApplicationUserSettings.Modify(); end; - procedure ShowLegacyActionBarSurvey() - var - CustomerExperienceSurvey: Codeunit "Customer Experience Survey"; - FormsProId: Text; - FormsProEligibilityId: Text; - IsEligible: Boolean; - begin - if CustomerExperienceSurvey.RegisterEventAndGetEligibility('modernactionbar_event', 'modernactionbar', FormsProId, FormsProEligibilityId, IsEligible) then - if IsEligible then - CustomerExperienceSurvey.RenderSurvey('modernactionbar', FormsProId, FormsProEligibilityId); - end; - [EventSubscriber(ObjectType::Codeunit, Codeunit::"System Action Triggers", GetAutoStartTours, '', false, false)] local procedure CheckIfUserCalloutsAreEnabled(var IsEnabled: Boolean) var