added 508 Compliance for form fields.

This commit is contained in:
Frank Dillon 2006-12-06 19:07:26 +00:00
parent 36ef194db1
commit 8fa60deb66

View file

@ -94,13 +94,13 @@ sub process {
name=>"method", name=>"method",
value=>"login" 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,{ $var{'username.form'} = WebGUI::Form::text($session,{
name=>"username", name=>"username",
size=>$boxSize, size=>$boxSize,
extras=>'class="loginBoxField"' 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,{ $var{'password.form'} = WebGUI::Form::password($session,{
name=>"identifier", name=>"identifier",
size=>$boxSize, size=>$boxSize,