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

Additional lasterr stomping fixes.

Browse Source
This commit is contained in:
Chris 2012-03-19 12:30:36 +00:00
parent db69ca8a23
commit 9afd5b52ec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
AppUser.pm
View File

@ -109,7 +109,7 @@ sub init {
#
# @return The ID of the anonymous user account.
sub anonymous_user {
return ANONYMOUS_USER;
return ANONYMOUS_ID;
}
@ -223,7 +223,7 @@ sub set_user_authmethod {
my $result = $seth -> execute($methodid, $username)
or die_log($self -> {"cgi"} -> remote_host(), "Unable to execute user auth update query. Error was: ".$self -> {"dbh"} -> errstr);
$self -> {"lasterr"} = "Unable to update user auth method, unkown user selected"
$self -> {"lasterr"} .= "Unable to update user auth method, unkown user selected"
if($result != 1);
return ($result == 1);