--- loncom/interface/loncommon.pm	2003/03/26 19:34:42	1.90
+++ loncom/interface/loncommon.pm	2003/03/27 20:56:30	1.91
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.90 2003/03/26 19:34:42 www Exp $
+# $Id: loncommon.pm,v 1.91 2003/03/27 20:56:30 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -349,6 +349,36 @@ sub selectstudent_link {
         '","'.$udomele.'");'."'>Select</a>";
 }
 
+sub coursebrowser_javascript {
+   return (<<'ENDSTDBRW');
+<script type="text/javascript" language="Javascript" >
+    var stdeditbrowser;
+    function opencrsbrowser(formname,uname,udom) {
+        var url = '/adm/pickcourse?';
+        var filter;
+        if (filter != null) {
+           if (filter != '') {
+               url += 'filter='+filter+'&';
+	   }
+        }
+        url += 'form=' + formname + '&cnumelement='+uname+
+                                    '&cdomelement='+udom;
+        var title = 'Course Browser';
+        var options = 'scrollbars=1,resizable=1,menubar=0';
+        options += ',width=700,height=600';
+        stdeditbrowser = open(url,title,options,'1');
+        stdeditbrowser.focus();
+    }
+</script>
+ENDSTDBRW
+}
+
+sub selectcourse_link {
+   my ($form,$unameele,$udomele)=@_;
+    return "<a href='".'javascript:opencrsbrowser("'.$form.'","'.$unameele.
+        '","'.$udomele.'");'."'>Select Course</a>";
+}
+
 ###############################################################
 
 =pod