loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.315.2.4, 2010/09/14 03:16:04
+version 1.315.2.5, 2010/12/25 00:32:05
  Line 245  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 {
              my @items = @{$menuitem};
              $items[0] = 'javascript:'.$menuitem->[0].';';