From 57044df6a4539ee1728f48e06cd297ba50bd94e2 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Fri, 11 Jan 2013 15:53:46 +0000
Subject: [PATCH] Fixing copypasta.

---
 Webperl/AuthMethod/Database.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Webperl/AuthMethod/Database.pm b/Webperl/AuthMethod/Database.pm
index c5a57bc..19361ec 100644
--- a/Webperl/AuthMethod/Database.pm
+++ b/Webperl/AuthMethod/Database.pm
@@ -141,9 +141,12 @@ sub create_user {
     my $userid = $self -> {"dbh"} -> {"mysql_insertid"};
     return $self -> self_error("Unable to obtain id for user '$username'") if(!$userid);
 
-    my $user = $self -> get_user_byid($userid);
+    $userh = $self -> {"dbh"} -> prepare("SELECT * FROM  ".$self -> {"settings"} -> {"database"} -> {"users"}."
+                                          WHERE user_id = ?");
+    $userh -> execute($userid)
+        or return $self -> self_error("Unable to fetch user record: ".$self -> {"dbh"} -> errstr);
 
-    return ($user, $password);
+    return ($userh -> fetchrow_hashref(), $password);
 }