From 8fa60deb66470698bcef12c342bcc999ba84c80c Mon Sep 17 00:00:00 2001
From: Frank Dillon <frank@plainblack.com>
Date: Wed, 6 Dec 2006 19:07:26 +0000
Subject: [PATCH] added 508 Compliance for form fields.

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

diff --git a/lib/WebGUI/Macro/L_loginBox.pm b/lib/WebGUI/Macro/L_loginBox.pm
index d7a99d9bd..4463ae3f1 100644
--- a/lib/WebGUI/Macro/L_loginBox.pm
+++ b/lib/WebGUI/Macro/L_loginBox.pm
@@ -94,13 +94,13 @@ sub process {
 			name=>"method",
 			value=>"login"
 			});
-	$var{'username.label'} = $i18n->get(50, 'WebGUI');
+	$var{'username.label'} = '<label for="username_formId">'.$i18n->get(50, 'WebGUI').'</label>';
 	$var{'username.form'} = WebGUI::Form::text($session,{
 		name=>"username",
 		size=>$boxSize,
 		extras=>'class="loginBoxField"'
 		});
-        $var{'password.label'} = $i18n->get(51, 'WebGUI');
+        $var{'password.label'} = '<label for="identifier_formId">'.$i18n->get(51, 'WebGUI').'</label>';
         $var{'password.form'} = WebGUI::Form::password($session,{
 		name=>"identifier",
 		size=>$boxSize,