From 1263fa2f1f0f77c06ec5e46bcb19de9bde1a5c83 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Sun, 1 Jan 2017 19:24:15 +0000
Subject: [PATCH] Fix handling of password and actcode reset

---
 Webperl/Auth.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Webperl/Auth.pm b/Webperl/Auth.pm
index babbf10..2561bcd 100644
--- a/Webperl/Auth.pm
+++ b/Webperl/Auth.pm
@@ -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());
+    }
 }