--- loncom/interface/lonmenu.pm 2010/09/09 19:33:18 1.339 +++ loncom/interface/lonmenu.pm 2010/12/02 06:00:12 1.340 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.339 2010/09/09 19:33:18 raeburn Exp $ +# $Id: lonmenu.pm,v 1.340 2010/12/02 06:00:12 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -214,7 +214,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 { $menu .= prep_menuitem($menuitem); }