|
version 1.38, 2009/10/20 14:29:44
|
version 1.39, 2009/11/10 19:13:00
|
|
Line 75 sub display_help_banner {
|
Line 75 sub display_help_banner {
|
| my ($r,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_; |
my ($r,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage) = @_; |
| my $location=&Apache::loncommon::lonhttpdurl("/adm"); |
my $location=&Apache::loncommon::lonhttpdurl("/adm"); |
| my $dom = $env{'request.role.domain'}; |
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 = ''; |
my $scripttag = ''; |
| if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) { |
| my $displayurl = &escape($origurl); |
my $displayurl = &escape($origurl); |
|
Line 174 END
|
Line 174 END
|
| END |
END |
| } |
} |
| if ($env{'user.adv'}) { |
if ($env{'user.adv'}) { |
| if ($domconfig{'login'}{'submitbugs'} eq '1' || |
if ($helpconfig{'helpsettings'}{'submitbugs'} eq '1' || |
| $domconfig{'login'}{'submitbugs'} eq '' ) { |
$helpconfig{'helpsettings'}{'submitbugs'} eq '' ) { |
| $r->print(<<END); |
$r->print(<<END); |
| <td><span class="LC_nobreak" <b><a href="$bugurl" target="bodyframe"><img src="$location/lonMisc/smallBug.gif" border="0" alt="(Report a bug)" valign="middle" /> Report a bug</a> </b></span></td> |
<td><span class="LC_nobreak" <b><a href="$bugurl" target="bodyframe"><img src="$location/lonMisc/smallBug.gif" border="0" alt="(Report a bug)" valign="middle" /> Report a bug</a> </b></span></td> |
| END |
END |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhelpmenu.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface