--- loncom/interface/lonmenu.pm 2006/07/03 04:14:21 1.192 +++ loncom/interface/lonmenu.pm 2006/07/14 16:46:36 1.195 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.192 2006/07/03 04:14:21 albertel Exp $ +# $Id: lonmenu.pm,v 1.195 2006/07/14 16:46:36 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -118,7 +118,7 @@ sub menubuttons { ENDNAV if (($env{'request.noversionuri'}=~/^\/adm\//) && ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) && - ($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|grppg|bulletinboard|aboutme)(\?|$)/)) { + ($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { my $escreload=&escape('return:'); $reloadlink=(<$lt{'ret'} @@ -211,7 +211,7 @@ ENDDOCS (($env{'request.noversionuri'}=~/^\/adm\//) && ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) && ($env{'request.noversionuri'}!~ - m[^/adm/.*/(smppg|grppg|bulletinboard|aboutme)($|\?)]) + m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)]) ) ) { my $escreload=&escape('return:'); @@ -237,6 +237,13 @@ ENDCRELOAD if ($env{'user.adv'}) { $remote = ''.$lt{'launch'}.'' } + my $helptopic='Student_Intro'; + if ($env{'request.role'}=~/^(ca|au)/) { + $helptopic='Authoring_Intro'; + } elsif ($env{'request.role'}=~/^cc/) { + $helptopic='Course_Coordination_Intro'; + } + my $helplink=&Apache::loncommon::help_open_topic($helptopic,'Help'); return (< // BEGIN LON-CAPA Internal @@ -246,6 +253,8 @@ $utility + $reloadlink $navmaps @@ -253,8 +262,8 @@ $docs $groups $remote - - + +
$lt{'main'}$lt{'roles'}$lt{'exit'}$helplink$lt{'exit'}
$form @@ -478,7 +487,7 @@ s&8&3&prt.gif&prepare[_1]&printout[_1]&g s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&1 s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&1 ENDMENUITEMS - unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|grppg|navmaps|syllabus|aboutme)(\?|$)/) { + unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { $menuitems.=(<