update slt selection

allow for accounts to get deleted/recreated without causing issues during subsequent account login
tooledesign · Apr 9, 2022 · 4ea0c99 · 4ea0c99
1 parent a5f1072
commit 4ea0c99
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/safer_streets_priority_finder/R/fct_login_funcs.R b/safer_streets_priority_finder/R/fct_login_funcs.R
@@ -31,7 +31,7 @@ get_user_id <- function(connection, username, password){
         password <-  DBI::dbQuoteString(connection, password)
 
         # get salt 
-        salt <- as.character(DBI::dbGetQuery(connection, glue::glue("SELECT salt FROM gen_management.salt WHERE pgp_sym_decrypt(decode(username, 'hex'), {key}) = {username};"))[1,1]) 
+        salt <- as.character(DBI::dbGetQuery(connection, glue::glue("SELECT salt FROM gen_management.salt WHERE pgp_sym_decrypt(decode(username, 'hex'), {key}) = {username} ORDER BY time_created DESC LIMIT 1;"))[1,1]) 
         sterilized_salt <-  DBI::dbQuoteString(connection, salt)
 
         q <- glue::glue("SELECT DISTINCT user_id