diff --git a/lib/WebGUI/Auth.pm b/lib/WebGUI/Auth.pm index f1b8fe7bb..fa873e83f 100644 --- a/lib/WebGUI/Auth.pm +++ b/lib/WebGUI/Auth.pm @@ -19,6 +19,7 @@ use DBI; use strict qw(subs vars); use Tie::IxHash; use WebGUI::DateTime; +use WebGUI::ErrorHandler; use WebGUI::FormProcessor; use WebGUI::HTML; use WebGUI::HTMLForm; @@ -441,6 +442,13 @@ sub getSetting { return $session{setting}{$setting}; } +#------------------------------------------------------------------- +sub init { + my $self = shift; + WebGUI::ErrorHandler::warn("In init"); + return $self->displayLogin; +} + #------------------------------------------------------------------- =head2 isCallable ( method ) @@ -540,6 +548,7 @@ sub recoverPassword { my $self = shift; my $method = $_[0]; my $vars = $_[1]; + my $template = $_[2] || 'Auth/'.$self->authMethod.'/Recovery'; $vars->{displayTitle} = '

'.WebGUI::International::get(71).'

'; @@ -554,7 +563,8 @@ sub recoverPassword { $vars->{'recover.options.accountExists'} = ''.WebGUI::International::get(73).''; if ($session{setting}{anonymousRegistration}) { $vars->{'recover.options.anonymousRegistration'} = ''.WebGUI::International::get(67).''; - } + } + return WebGUI::Template::process(WebGUI::Template::get(1,$template), $vars); } #------------------------------------------------------------------- diff --git a/lib/WebGUI/Auth/WebGUI.pm b/lib/WebGUI/Auth/WebGUI.pm index 3315edcc3..f1352839c 100644 --- a/lib/WebGUI/Auth/WebGUI.pm +++ b/lib/WebGUI/Auth/WebGUI.pm @@ -294,8 +294,7 @@ sub recoverPassword { $vars->{'recover.message'} = $_[0] if ($_[0]); $vars->{'recover.form.email'} = WebGUI::Form::text({"name"=>"email"}); $vars->{'recover.form.email.label'} = WebGUI::International::get(56); - $self->SUPER::recoverPassword("recoverPasswordFinish",$vars); - return WebGUI::Template::process(WebGUI::Template::get(1,'Auth/WebGUI/Recovery'), $vars); + return $self->SUPER::recoverPassword("recoverPasswordFinish",$vars); } #------------------------------------------------------------------- diff --git a/lib/WebGUI/Operation.pm b/lib/WebGUI/Operation.pm index d9d651cc5..8e83b5698 100644 --- a/lib/WebGUI/Operation.pm +++ b/lib/WebGUI/Operation.pm @@ -11,7 +11,6 @@ package WebGUI::Operation; #------------------------------------------------------------------- use strict; -#use WebGUI::Operation::Account; use WebGUI::Operation::Auth; use WebGUI::Operation::Admin; use WebGUI::Operation::Clipboard; diff --git a/lib/WebGUI/Privilege.pm b/lib/WebGUI/Privilege.pm index 7769eeae3..61067eef1 100644 --- a/lib/WebGUI/Privilege.pm +++ b/lib/WebGUI/Privilege.pm @@ -22,7 +22,6 @@ use WebGUI::Group; use WebGUI::Grouping; use WebGUI::International; use WebGUI::Macro; -use WebGUI::Operation::Account (); use WebGUI::Session; use WebGUI::SQL; use WebGUI::URL; @@ -397,24 +396,24 @@ Returns a message stating that the user does not have the privileges necessary t =cut sub noAccess { - if($session{env}{MOD_PERL}) { - my $r = Apache->request; - if(defined($r)) { - $r->custom_response(401, '' ); - $r->status(401); - } - } else { - $session{header}{status} = 401; - } - my ($output); - if ($session{user}{userId} <= 1) { - $output = WebGUI::Operation::Account::www_displayLogin(); - } else { - $output = '

'.WebGUI::International::get(37).'

'; - $output .= WebGUI::International::get(39); - $output .= '

'; - } - return $output; + if($session{env}{MOD_PERL}) { + my $r = Apache->request; + if(defined($r)) { + $r->custom_response(401, '' ); + $r->status(401); + } + } else { + $session{header}{status} = 401; + } + my ($output); + if ($session{user}{userId} <= 1) { + $output = WebGUI::Operation::Auth::www_auth("init"); + } else { + $output = '

'.WebGUI::International::get(37).'

'; + $output .= WebGUI::International::get(39); + $output .= '

'; + } + return $output; } #-------------------------------------------------------------------