From 11bf026e2d46197b131751c04b7bd76251c714a6 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Thu, 10 Jun 2021 05:56:48 -0700
Subject: [PATCH]

---
 Site.master.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Site.master.vb b/Site.master.vb
index 899461f8d..d187dbef2 100644
--- 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