--- loncom/interface/lonmenu.pm 2010/09/14 03:16:04 1.315.2.4 +++ loncom/interface/lonmenu.pm 2010/12/25 00:32:05 1.315.2.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.315.2.4 2010/09/14 03:16:04 raeburn Exp $ +# $Id: lonmenu.pm,v 1.315.2.5 2010/12/25 00:32:05 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -245,7 +245,18 @@ sub primary_menu { if ($$menuitem[3] eq 'Help') { # special treatment for helplink - $menu .= '
  • '.&Apache::loncommon::top_nav_help('Help').'
  • '; + if ($public) { + my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'}; + my $defdom = &Apache::lonnet::default_login_domain(); + my $to = &Apache::loncommon::build_recipient_list(undef, + 'helpdeskmail', + $defdom,$origmail); + if ($to ne '') { + $menu .= &prep_menuitem($menuitem); + } + } else { + $menu .= '
  • '.&Apache::loncommon::top_nav_help('Help').'
  • '; + } } else { my @items = @{$menuitem}; $items[0] = 'javascript:'.$menuitem->[0].';';