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

[jms]

jms		Tue Nov 10 19:13:00 2009 EDT

  Modified files:              
    /loncom/interface	lonhelpmenu.pm 
  Log:
  New "Help Settings" page added to Domain Settings, with ability to turn the "Submit a bug" link on or off in the help menu
  
Index: loncom/interface/lonhelpmenu.pm
diff -u loncom/interface/lonhelpmenu.pm:1.38 loncom/interface/lonhelpmenu.pm:1.39
--- loncom/interface/lonhelpmenu.pm:1.38	Tue Oct 20 14:29:44 2009
+++ loncom/interface/lonhelpmenu.pm	Tue Nov 10 19:13:00 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # generate frame-based help system
 #
-# $Id: lonhelpmenu.pm,v 1.38 2009/10/20 14:29:44 jms Exp $
+# $Id: lonhelpmenu.pm,v 1.39 2009/11/10 19:13:00 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -75,7 +75,7 @@
     my ($r,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_;
     my $location=&Apache::loncommon::lonhttpdurl("/adm");
     my $dom = $env{'request.role.domain'};
-    my %domconfig = &Apache::lonnet::get_dom('configuration',['login'],$dom);
+    my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$dom);
     my $scripttag = '';
     if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
         my $displayurl = &escape($origurl);
@@ -174,8 +174,8 @@
 END
     }
     if ($env{'user.adv'}) {
-    	if ($domconfig{'login'}{'submitbugs'} eq '1' ||
-    		$domconfig{'login'}{'submitbugs'} eq '' ) {
+    	if ($helpconfig{'helpsettings'}{'submitbugs'} eq '1' ||
+    		$helpconfig{'helpsettings'}{'submitbugs'} eq '' ) {
         	$r->print(<<END);
             	<td><span class="LC_nobreak"&nbsp;<b><a href="$bugurl" target="bodyframe"><img src="$location/lonMisc/smallBug.gif" border="0" alt="(Report a bug)" valign="middle" />&nbsp;Report a bug</a>&nbsp;</b></span></td>
 END