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;
}
#-------------------------------------------------------------------