--- loncom/interface/loncommon.pm	2003/07/25 10:44:36	1.110
+++ loncom/interface/loncommon.pm	2003/08/13 20:40:31	1.111
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.110 2003/07/25 10:44:36 www Exp $
+# $Id: loncommon.pm,v 1.111 2003/08/13 20:40:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -311,14 +311,15 @@ END
 }
 
 sub studentbrowser_javascript {
-   unless ($ENV{'request.course.id'}) { return ''; }  
-   unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
-        return '';
-   }
+   unless (
+            (($ENV{'request.course.id'}) && 
+             (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})))
+         || ($ENV{'request.role'}=~/^(au|dc|su)/)
+          ) { return ''; }  
    return (<<'ENDSTDBRW');
 <script type="text/javascript" language="Javascript" >
     var stdeditbrowser;
-    function openstdbrowser(formname,uname,udom) {
+    function openstdbrowser(formname,uname,udom,roleflag) {
         var url = '/adm/pickstudent?';
         var filter;
         eval('filter=document.'+formname+'.'+uname+'.value;');
@@ -329,6 +330,7 @@ sub studentbrowser_javascript {
         }
         url += 'form=' + formname + '&unameelement='+uname+
                                     '&udomelement='+udom;
+	if (roleflag) { url+="&roles=1"; }
         var title = 'Student_Browser';
         var options = 'scrollbars=1,resizable=1,menubar=0';
         options += ',width=700,height=600';
@@ -340,13 +342,19 @@ ENDSTDBRW
 }
 
 sub selectstudent_link {
-    my ($form,$unameele,$udomele)=@_;
-   unless ($ENV{'request.course.id'}) { return ''; }  
-   unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
-        return '';
-   }
-    return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.
+   my ($form,$unameele,$udomele)=@_;
+   if ($ENV{'request.course.id'}) {  
+       unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
+	   return '';
+       }
+       return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.
         '","'.$udomele.'");'."'>Select User</a>";
+   }
+   if ($ENV{'request.role'}=~/^(au|dc|su)/) {
+       return "<a href='".'javascript:openstdbrowser("'.$form.'","'.$unameele.
+        '","'.$udomele.'",1);'."'>Select User</a>";
+   }
+   return '';
 }
 
 sub coursebrowser_javascript {