Skip to content
Snippets Groups Projects
Commit 07178df4 authored by William Turner's avatar William Turner
Browse files

Removes join notification on LDAP signup

parent baca06e9
Branches
Tags
No related merge requests found
......@@ -146,14 +146,11 @@
"Convenience for creating a new user via LDAP. This account is considered active immediately; thus all active admins will recieve an email right away."
[first-name last-name email-address password]
{:pre [(string? first-name) (string? last-name) (u/is-email? email-address)]}
(u/prog1 (db/insert! User
:email email-address
:first_name first-name
:last_name last-name
:password password
:ldap_auth true)
;; send an email to everyone including the site admin if that's set
(email/send-user-joined-admin-notification-email! <>, :ldap-auth? true)))
(db/insert! User :email email-address
:first_name first-name
:last_name last-name
:password password
:ldap_auth true))
(defn set-password!
"Updates the stored password for a specified `User` by hashing the password with a random salt."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment