40fingers / StyleHelper-Sko

Manipulate DNNCMS HTML, JS and CSS in #dnncms
https://www.40fingers.net/Products/DNN-Stylehelper
7 stars 2 forks source link

New remove js files option #20

Open Timo-Breumelhof opened 2 years ago

Timo-Breumelhof commented 2 years ago

Try:

   Protected Overrides Sub OnPreRender(ByVal e As EventArgs)

    Dim objLibraries = DotNetNuke.Framework.JavaScriptLibraries.JavaScriptLibraryController.Instance.GetLibraries()

    For Each library As DotNetNuke.Framework.JavaScriptLibraries.JavaScriptLibrary In objLibraries
           If library.LibraryName = "jQuery" Then
                  ' always remove jquery
                  HttpContext.Current.Items.Remove("JSL." & library.JavaScriptLibraryID.ToString())
           End If

           If library.LibraryName = "jQuery-UI" Then
                  Dim remove = True

                  If Request.IsAuthenticated Then
                         Dim objUser = DotNetNuke.Entities.Users.UserController.Instance.GetCurrentUserInfo()
                         If objUser IsNot Nothing Then
                                If objUser.IsInRole("Administrators") OrElse DotNetNuke.Common.Globals.IsEditMode() Then
                                       remove = False
                                End If
                         End If
                  End If

                  If remove Then
                         HttpContext.Current.Items.Remove("JSL." & library.JavaScriptLibraryID.ToString())
                  End If
           End If
    Next

End Sub 
Timo-Breumelhof commented 2 years ago

Does not seem to work.. :-(