loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.339, 2010/09/09 19:33:18
+version 1.340, 2010/12/02 06:00:12
  Line 214  sub primary_menu {
          if ($$menuitem[3] eq 'Help') { # special treatment for helplink
-             $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
+             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 .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
+             }
          } else {
              $menu .= prep_menuitem($menuitem);
          }