From 9751ed04108718547c0efb4d5943eaf429256e52 Mon Sep 17 00:00:00 2001
From: Len Kranendonk <len@webgui-svn>
Date: Sat, 7 Aug 2004 10:51:25 +0000
Subject: [PATCH] Loginbox didn't support encrypt login

---
 lib/WebGUI/Macro/L_loginBox.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/WebGUI/Macro/L_loginBox.pm b/lib/WebGUI/Macro/L_loginBox.pm
index b2cba96b4..423b596d8 100644
--- a/lib/WebGUI/Macro/L_loginBox.pm
+++ b/lib/WebGUI/Macro/L_loginBox.pm
@@ -45,6 +45,9 @@ sub process {
 			name=>"op",
 			value=>"login"
 			});
+        if ($session{setting}{encryptLogin}) {
+                $var{'form.header'} =~ s/http:/https:/;
+        }
 	$var{'username.label'} = WebGUI::International::get(50);
 	$var{'username.form'} = WebGUI::Form::text({
 		name=>"username",