Remove more deprecated code.

This commit is contained in:
Colin Kuskie 2011-12-05 20:56:03 -08:00
parent 2eb7b11880
commit f20146dece

View file

@ -99,31 +99,35 @@ sub process {
$action = $session->url->page(undef,1); $action = $session->url->page(undef,1);
$action =~ s/http:/https:/; $action =~ s/http:/https:/;
} }
use WebGUI::Form::Hidden;
use WebGUI::Form::Text;
use WebGUI::Form::Password;
use WebGUI::Form::Submit;
$var{'form.header'} = WebGUI::Form::formHeader($session,{action=>$action}) $var{'form.header'} = WebGUI::Form::formHeader($session,{action=>$action})
.WebGUI::Form::hidden($session,{ .WebGUI::Form::Hidden->new($session,{
name=>"op", name=>"op",
value=>"auth" value=>"auth"
}) })-toHtml
.WebGUI::Form::hidden($session,{ .WebGUI::Form::Hidden->new($session,{
name=>"method", name=>"method",
value=>"login" value=>"login"
}); })->toHtml;
$var{'username.label'} = $i18n->get(50, 'WebGUI'); $var{'username.label'} = $i18n->get(50, 'WebGUI');
$var{'username.form'} = WebGUI::Form::text($session,{ $var{'username.form'} = WebGUI::Form::Text->new($session,{
name=>"username", name=>"username",
size=>$boxSize, size=>$boxSize,
extras=>'class="loginBoxField"' extras=>'class="loginBoxField"'
}); })->toHtml;
$var{'password.label'} = $i18n->get(51, 'WebGUI'); $var{'password.label'} = $i18n->get(51, 'WebGUI');
$var{'password.form'} = WebGUI::Form::password($session,{ $var{'password.form'} = WebGUI::Form::Password->new($session,{
name=>"identifier", name=>"identifier",
size=>$boxSize, size=>$boxSize,
extras=>'class="loginBoxField"' extras=>'class="loginBoxField"'
}); })->toHtml;
$var{'form.login'} = WebGUI::Form::submit($session,{ $var{'form.login'} = WebGUI::Form::Submit->new($session,{
value=>$i18n->get(52, 'WebGUI'), value=>$i18n->get(52, 'WebGUI'),
extras=>'class="loginBoxButton"' extras=>'class="loginBoxButton"'
}); })->toHtml;
$var{'account.create.url'} = $session->url->page('op=auth;method=createAccount'); $var{'account.create.url'} = $session->url->page('op=auth;method=createAccount');
$var{'account.create.label'} = $i18n->get(407, 'WebGUI'); $var{'account.create.label'} = $i18n->get(407, 'WebGUI');
$var{'form.footer'} = WebGUI::Form::formFooter($session,); $var{'form.footer'} = WebGUI::Form::formFooter($session,);