--- loncom/interface/loncommon.pm 2003/03/26 19:34:42 1.90 +++ loncom/interface/loncommon.pm 2003/04/05 22:14:40 1.95 @@ -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.95 2003/04/05 22:14:40 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -346,7 +346,37 @@ sub selectstudent_link { return ''; } return "Select"; + '","'.$udomele.'");'."'>Select User"; +} + +sub coursebrowser_javascript { + return (<<'ENDSTDBRW'); + +ENDSTDBRW +} + +sub selectcourse_link { + my ($form,$unameele,$udomele)=@_; + return "Select Course"; } ############################################################### @@ -1685,19 +1715,32 @@ sub bodytag {
END + my $upperleft=''; if ($bodyonly) { return $bodytag; } elsif ($ENV{'browser.interface'} eq 'textual') { +# Accessibility return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web', $forcereg). '