--- loncom/lonnet/perl/lonnet.pm 2004/01/27 22:54:59 1.465 +++ loncom/lonnet/perl/lonnet.pm 2004/01/29 00:53:03 1.466 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.465 2004/01/27 22:54:59 albertel Exp $ +# $Id: lonnet.pm,v 1.466 2004/01/29 00:53:03 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1446,6 +1446,7 @@ sub get_course_adv_roles { if (($tend) && ($tend<$now)) { next; } if (($tstart) && ($now<$tstart)) { next; } my ($role,$username,$domain,$section)=split(/\:/,$_); + if (&privileged($username,$domain)) { next; } my $key=&plaintext($role); if ($section) { $key.=' (Sec/Grp '.$section.')'; } if ($returnhash{$key}) {