--- loncom/interface/loncommon.pm 2005/10/04 18:49:32 1.278 +++ loncom/interface/loncommon.pm 2005/10/13 22:37:40 1.279 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.278 2005/10/04 18:49:32 raeburn Exp $ +# $Id: loncommon.pm,v 1.279 2005/10/13 22:37:40 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3118,6 +3118,15 @@ sub get_course_users { } } } + if (grep/^ow$/,@{$roles}) { + if ((defined($cdom)) && (defined($cnum))) { + my %csettings = &Apache::lonnet::get('environment',['internal.courseowner'],$cdom,$cnum); + if ( defined($csettings{'internal.courseowner'}) ) { + my $owner = $csettings{'internal.courseowner'}; + $$users{'ow'}{$owner.':'.$cdom} = 'any'; + } + } + } } return; }