--- loncom/interface/loncommon.pm 2002/12/26 15:38:54 1.73
+++ loncom/interface/loncommon.pm 2002/12/30 14:10:58 1.74
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.73 2002/12/26 15:38:54 www Exp $
+# $Id: loncommon.pm,v 1.74 2002/12/30 14:10:58 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -311,7 +311,44 @@ sub browser_and_searcher_javascript {
END
}
+sub studentbrowser_javascript {
+ unless ($ENV{'request.course.id'}) { return ''; }
+ unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
+ return '';
+ }
+ return (<<'ENDSTDBRW');
+
+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 "Select";
+}
###############################################################
@@ -1010,6 +1047,13 @@ sub messagewrapper {
return
"$link";
}
+# --------------------------------------------------------------- Notes Wrapper
+
+sub noteswrapper {
+ my ($link,$un,$do)=@_;
+ return
+"$link";
+}
# ------------------------------------------------------------- Aboutme Wrapper
sub aboutmewrapper {