summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'src/shared/struct/shr_db_user.erl')
-rw-r--r--src/shared/struct/shr_db_user.erl4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/shared/struct/shr_db_user.erl b/src/shared/struct/shr_db_user.erl
index 6087833..8368024 100644
--- a/src/shared/struct/shr_db_user.erl
+++ b/src/shared/struct/shr_db_user.erl
@@ -31,4 +31,6 @@ can_access (janitor, janitor) -> true;
can_access (List, {user, User}) ->
lists:member({user, User}, List);
can_access (List, janitor) ->
- lists:member(janitor, List).
+ lists:member(janitor, List);
+can_access (List, User) ->
+ can_access(List, {user, User}).