Loginbox didn't support encrypt login

This commit is contained in:
Len Kranendonk 2004-08-07 10:51:25 +00:00
parent 46ea7b60c0
commit 9751ed0410

View file

@ -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",