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

Fixing copypasta.

Browse Source
This commit is contained in:
Chris 2013-01-11 15:53:46 +00:00
parent 55b442b761
commit 57044df6a4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Webperl/AuthMethod/Database.pm
View File

@ -141,9 +141,12 @@ sub create_user {
my $userid = $self -> {"dbh"} -> {"mysql_insertid"}; my $userid = $self -> {"dbh"} -> {"mysql_insertid"};
return $self -> self_error("Unable to obtain id for user '$username'") if(!$userid); 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);
} }