loncom/interface/lonhelpmenu.pm - diff

Return to lonhelpmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2009/02/13 17:20:29	version 1.39, 2009/11/10 19:13:00
Line 74 sub handler {	Line 74 sub handler {
sub display_help_banner {	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 %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 172 END	Line 174 END
END	END
}	}
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
$r->print(<<END);	if ($helpconfig{'helpsettings'}{'submitbugs'} eq '1' \|\|
<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>	$helpconfig{'helpsettings'}{'submitbugs'} eq '' ) {
	$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>
END	END
	}
}	}
if ($stayOnPage) {	if ($stayOnPage) {
$r->print(<<END);	$r->print(<<END);