diff options
Diffstat (limited to 'Bugzilla/User.pm')
| -rw-r--r-- | Bugzilla/User.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/Bugzilla/User.pm b/Bugzilla/User.pm index 8c5ad3d54..47887b03a 100644 --- a/Bugzilla/User.pm +++ b/Bugzilla/User.pm @@ -1091,8 +1091,9 @@ sub insert_new_user ($$;$$) { # Insert the new user record into the database. $dbh->do("INSERT INTO profiles - (login_name, realname, cryptpassword, disabledtext) - VALUES (?, ?, ?, ?)", + (login_name, realname, cryptpassword, disabledtext, + refreshed_when) + VALUES (?, ?, ?, ?, '1901-01-01 00:00:00')", undef, ($username, $realname, $cryptpassword, $disabledtext)); @@ -1133,12 +1134,14 @@ sub is_available_username ($;$) { # # substring/locate stuff: bug 165221; this used to use regexes, but that # was unsafe and required weird escaping; using substring to pull out - # the new/old email addresses and locate() to find the delimeter (':') + # the new/old email addresses and sql_position() to find the delimiter (':') # is cleaner/safer my $sth = $dbh->prepare( "SELECT eventdata FROM tokens WHERE tokentype = 'emailold' - AND SUBSTRING(eventdata, 1, (LOCATE(':', eventdata) - 1)) = ? - OR SUBSTRING(eventdata, (LOCATE(':', eventdata) + 1)) = ?"); + AND SUBSTRING(eventdata, 1, (" + . $dbh->sql_position(q{':'}, 'eventdata') . "- 1)) = ? + OR SUBSTRING(eventdata, (" + . $dbh->sql_position(q{':'}, 'eventdata') . "+ 1)) = ?"); $sth->execute($username, $username); if (my ($eventdata) = $sth->fetchrow_array()) { |