--- loncom/interface/loncommon.pm 2003/03/10 20:21:45 1.87
+++ 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.87 2003/03/10 20:21:45 matthew 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";
}
+sub coursebrowser_javascript {
+ return (<<'ENDSTDBRW');
+
+ENDSTDBRW
+}
+
+sub selectcourse_link {
+ my ($form,$unameele,$udomele)=@_;
+ return "Select Course";
+}
+
###############################################################
=pod
@@ -601,18 +631,48 @@ sub get_domains {
=pod
-=item select_dom_form($defdom,$name)
+=item select_form($defdom,$name,%hash)
+
+Returns a string containing a