oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

More deprecated code.

Browse source
This commit is contained in:
Colin Kuskie 2011-12-06 21:15:50 -08:00
parent fdf0bd61ab
commit c8fdf5852f
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Macro/L_loginBox.pm
View file

@ -77,15 +77,16 @@ sub process {
$var{'logout.label'} = $i18n->get(49); $var{'logout.label'} = $i18n->get(49);
# A hidden field with the current URL # A hidden field with the current URL
use WebGUI::Form::Hidden;
my $returnUrl = $session->url->page; my $returnUrl = $session->url->page;
if ( !$session->form->get("op") eq "auth" ) { if ( !$session->form->get("op") eq "auth" ) {
$returnUrl .= '?' . $session->request->env->{ "QUERY_STRING" }; $returnUrl .= '?' . $session->request->env->{ "QUERY_STRING" };
} }
$var{'form.returnUrl'} $var{'form.returnUrl'}
= WebGUI::Form::hidden( $session, { = WebGUI::Form::Hidden->new( $session, {
name => 'returnUrl', name => 'returnUrl',
value => $session->url->page($session->request->env->{"QUERY_STRING"}), value => $session->url->page($session->request->env->{"QUERY_STRING"}),
}); })->toHtml;
# Fix box size # Fix box size
my $boxSize = $param[0]; my $boxSize = $param[0];
@ -99,7 +100,6 @@ 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::Text;
use WebGUI::Form::Password; use WebGUI::Form::Password;
use WebGUI::Form::Submit; use WebGUI::Form::Submit;