Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix handling of password and actcode reset

Browse Source
This commit is contained in:
Chris 2017-01-01 19:24:15 +00:00
parent 4ce6ec6b5e
commit 1263fa2f1f
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Webperl/Auth.pm
View File

@ -416,7 +416,13 @@ sub reset_password_actcode {
my $user = $self -> get_user($username)
or return undef;
return ($methodimpl -> reset_password_actcode($user -> {"user_id"}) || $self -> self_error($methodimpl -> errstr()));
my ($pass, $code) = $methodimpl -> reset_password_actcode($user -> {"user_id"});
if($pass && $code) {
return ($pass, $code);
} else {
return $self -> self_error($methodimpl -> errstr());
}
}