--- loncom/interface/lonhelpmenu.pm 2007/09/05 05:03:41 1.33 +++ loncom/interface/lonhelpmenu.pm 2009/11/10 19:13:00 1.39 @@ -1,6 +1,8 @@ # The LearningOnline Network with CAPA # generate frame-based help system # +# $Id: lonhelpmenu.pm,v 1.39 2009/11/10 19:13:00 jms Exp $ +# # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -72,6 +74,8 @@ sub handler { sub display_help_banner { my ($r,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_; my $location=&Apache::loncommon::lonhttpdurl("/adm"); + my $dom = $env{'request.role.domain'}; + my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$dom); my $scripttag = ''; if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { my $displayurl = &escape($origurl); @@ -153,11 +157,11 @@ SCRIPT_TWO + (General help) General Help  END if ($component_url) { $r->print("'); + '(Topic help) '.$topic.' '); } if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { $r->print(' @@ -170,9 +174,12 @@ END END } if ($env{'user.adv'}) { - $r->print(<(Report a bug) Report a bug  + if ($helpconfig{'helpsettings'}{'submitbugs'} eq '1' || + $helpconfig{'helpsettings'}{'submitbugs'} eq '' ) { + $r->print(<(Report a bug) Report a bug  END + } } if ($stayOnPage) { $r->print(<