Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1335 and 1.1336

version 1.1335, 2017/01/28 21:35:54 version 1.1336, 2017/01/28 23:26:51
Line 4624  sub get_my_adhocroles { Line 4624  sub get_my_adhocroles {
                                     next;                                      next;
                                 } elsif ($curraccess eq 'all') {                                  } elsif ($curraccess eq 'all') {
                                     push(@possroles,$role);                                      push(@possroles,$role);
                                 } elsif ($curraccess eq 'anydh') {                                  } elsif ($curraccess eq 'dh') {
                                     if (grep(/^dh$/,@liveroles)) {                                      if (grep(/^dh$/,@liveroles)) {
                                         push(@possroles,$role);                                          push(@possroles,$role);
                                     } else {                                      } else {
                                         next;                                          next;
                                     }                                      }
                                 } elsif ($curraccess eq 'anyda') {                                  } elsif ($curraccess eq 'da') {
                                     if (grep(/^da$/,@liveroles)) {                                      if (grep(/^da$/,@liveroles)) {
                                         push(@possroles,$role);                                          push(@possroles,$role);
                                     } else {                                      } else {

Removed from v.1.1335  
changed lines
  Added in v.1.1336


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>