2021-06-10 05:56:48 -07:00
parent f8508b9bd0
commit 11bf026e2d
1 changed files with 1 additions and 1 deletions
--- a/Site.master.vb
+++ b/Site.master.vb
@@ -320,7 +320,7 @@ Partial Class Site
        Dim ClassActive As String
        CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0

-        Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "")
+        Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "").Replace("https://", "http://")
        If Request.Url.Port <> 80 Then
            strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "")
        End If