--- loncom/interface/lonhelpmenu.pm 2006/07/20 22:44:04 1.32 +++ loncom/interface/lonhelpmenu.pm 2009/10/20 14:29:44 1.38 @@ -1,6 +1,8 @@ # The LearningOnline Network with CAPA # generate frame-based help system # +# $Id: lonhelpmenu.pm,v 1.38 2009/10/20 14:29:44 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 %domconfig = &Apache::lonnet::get_dom('configuration',['login'],$dom); my $scripttag = ''; if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { my $displayurl = &escape($origurl); @@ -142,7 +146,6 @@ SCRIPT_TWO $r->print($start_page); my $width = ($stayOnPage) ? '95%' : '600'; - $r->print(''); my $general_help = &Apache::loncommon::general_help(); @@ -153,36 +156,38 @@ SCRIPT_TWO
  LON-CAPA help/support
- + END if ($component_url) { - $r->print("'); + $r->print("'); } if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { $r->print(' - '); + '); } if ($faq && $env{'user.adv'}) { $r->print(< -  (FAQ) FAQ  + END } if ($env{'user.adv'}) { - $r->print(< (Report a bug) Report a bug  + if ($domconfig{'login'}{'submitbugs'} eq '1' || + $domconfig{'login'}{'submitbugs'} eq '' ) { + $r->print(<(Report a bug) Report a bug  END + } } if ($stayOnPage) { $r->print(< (Return to last location) Return to last location  + END } else { $r->print(< (Close window) Close  + END } $r->print(< - +