--- loncom/lonnet/perl/lonnet.pm	2017/01/28 21:35:54	1.1335
+++ loncom/lonnet/perl/lonnet.pm	2017/01/28 23:26:51	1.1336
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1335 2017/01/28 21:35:54 raeburn Exp $
+# $Id: lonnet.pm,v 1.1336 2017/01/28 23:26:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4624,13 +4624,13 @@ sub get_my_adhocroles {
                                     next;
                                 } elsif ($curraccess eq 'all') {
                                     push(@possroles,$role);
-                                } elsif ($curraccess eq 'anydh') {
+                                } elsif ($curraccess eq 'dh') {
                                     if (grep(/^dh$/,@liveroles)) {
                                         push(@possroles,$role);
                                     } else {
                                         next;
                                     }
-                                } elsif ($curraccess eq 'anyda') {
+                                } elsif ($curraccess eq 'da') {
                                     if (grep(/^da$/,@liveroles)) {
                                         push(@possroles,$role);
                                     } else {