[LON-CAPA-cvs] cvs: loncom /interface lonhelpmenu.pm

raeburn lon-capa-cvs@mail.lon-capa.org
Mon, 20 Dec 2004 21:11:42 -0000


raeburn		Mon Dec 20 16:11:42 2004 EDT

  Modified files:              
    /loncom/interface	lonhelpmenu.pm 
  Log:
  Fix bug #3490.
  
  
Index: loncom/interface/lonhelpmenu.pm
diff -u loncom/interface/lonhelpmenu.pm:1.17 loncom/interface/lonhelpmenu.pm:1.18
--- loncom/interface/lonhelpmenu.pm:1.17	Mon Dec 20 14:58:41 2004
+++ loncom/interface/lonhelpmenu.pm	Mon Dec 20 16:11:41 2004
@@ -30,6 +30,7 @@
 use lib qw(/home/httpd/lib/perl);
 use Apache::Constants qw(:common);
 use Apache::loncommon();
+use Apache::lonlocal;
 
 sub handler {
     my ($r) = @_;
@@ -177,7 +178,7 @@
     if (($component_url) || ($ENV{'user.adv'})) {
         if ($component_url) {
             $r->print("
-            <td align=\"center\">&nbsp;<b><a href=\"$component_url\" target=\"bodyframe\">");
+            <td align=\"center\"><b><a href=\"$component_url\" target=\"bodyframe\">");
         } elsif ($ENV{'user.adv'}) {
             $r->print('<td align="center">&nbsp;<b><a href="/adm/help/nohelptopic.html" target="bodyframe">');
         }
@@ -250,6 +251,7 @@
         'coth' => 'Consult the inline help system for this topic.',
         'cont' => 'Contact the LON-CAPA support team',
         'suhr' => 'Submit a help request to the team responsible for LON-CAPA support at this institution.',
+        'stuq' => 'Questions about course content should not be directed to the support team, but instead should be sent to the course instructor',
         'faqo' => 'FAQ-O-Matic Help system',
         'tfaq' => 'The FAQ-O-Matic is a compendium of answers provided to common questions asked by users of LON-CAPA over the past couple of years.',
         'lbug' => 'LON-CAPA Bugzilla bug/feature request tracking system',
@@ -292,8 +294,11 @@
           <ul>
            <li><a href=\"/adm/support?origurl=".&Apache::lonnet::escape($origurl)."&function=$function\">$lt{'cont'}</a></li>
           </ul>
-          <p>$lt{'suhr'}</p>
-        ");
+          <p>$lt{'suhr'}");
+         unless ($ENV{'user.adv'}) {
+             $r->print('<br /><b>'.&mt('Note').'</b>: '.$lt{'stuq'}.'. '.&mt('This can be done using the').' <a href="/adm/communicate" target="_top">'.&mt('COM').'</a> '.&mt('button, or the FDBK button when viewing a content page.'));
+         }
+         $r->print("</p>");
     }
     if ($faqbaseurl && $ENV{'user.adv'}) {
         if (!defined($faq) ||$faq eq '') {