From c8fdf5852fdebc4323ae3ad00ff16adb622ac8c8 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 6 Dec 2011 21:15:50 -0800
Subject: [PATCH] More deprecated code.

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

diff --git a/lib/WebGUI/Macro/L_loginBox.pm b/lib/WebGUI/Macro/L_loginBox.pm
index e6d9d0163..2c847e7e3 100644
--- a/lib/WebGUI/Macro/L_loginBox.pm
+++ b/lib/WebGUI/Macro/L_loginBox.pm
@@ -77,15 +77,16 @@ sub process {
         $var{'logout.label'} = $i18n->get(49);
         
         # A hidden field with the current URL
+    use WebGUI::Form::Hidden;
         my $returnUrl   = $session->url->page;
         if ( !$session->form->get("op") eq "auth" ) {
             $returnUrl  .= '?' . $session->request->env->{ "QUERY_STRING" };
         }
         $var{'form.returnUrl'} 
-            = WebGUI::Form::hidden( $session, {
+            = WebGUI::Form::Hidden->new( $session, {
                 name        => 'returnUrl',
                 value       => $session->url->page($session->request->env->{"QUERY_STRING"}),
-            });
+            })->toHtml;
             
         # Fix box size
         my $boxSize = $param[0];
@@ -99,7 +100,6 @@ sub process {
                 $action = $session->url->page(undef,1);
                 $action =~ s/http:/https:/;
         }
-    use WebGUI::Form::Hidden;
     use WebGUI::Form::Text;
     use WebGUI::Form::Password;
     use WebGUI::Form::Submit;