loncom/interface/lonhelpmenu.pm - diff

Return to lonhelpmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhelpmenu.pm between versions 1.3 and 1.6

version 1.3, 2004/07/03 19:33:30	version 1.6, 2004/07/03 20:25:51
Line 69 sub handler {	Line 69 sub handler {
sub display_help_banner {	sub display_help_banner {
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_;	my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_;
my $bodytag = &Apache::loncommon::bodytag('',$function,'rightmargin="0" leftmargin="0" marginwidth="0" topmargin="1" marginheight="1"',1);	my $bodytag = &Apache::loncommon::bodytag('',$function,'rightmargin="0" leftmargin="0" marginwidth="0" topmargin="1" marginheight="1"',1);
$bodytag=~/[\n\r]/ /g;	$bodytag=~s/[\n\r]/ /g;
my $fontcolor = &Apache::loncommon::designparm($function.'.font');	my $fontcolor = &Apache::loncommon::designparm($function.'.font');
my $alinkcolor = &Apache::loncommon::designparm($function.'.alink');	my $alinkcolor = &Apache::loncommon::designparm($function.'.alink');
my $vlinkcolor = &Apache::loncommon::designparm($function.'.vlink');	my $vlinkcolor = &Apache::loncommon::designparm($function.'.vlink');
Line 120 END	Line 120 END
if ($component_url) {	if ($component_url) {
$r->print("	$r->print("
<td align=\"center\"> <b><a href=\"$component_url\" target=\"bodyframe\">");	<td align=\"center\"> <b><a href=\"$component_url\" target=\"bodyframe\">");
} elsif ($ENV{'user.adv'}) {	$r->print('
	<image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Topic help)" valign="middle" /> Topic help</a></b> </td>');
	} elsif (0 && $ENV{'user.adv'}) {
	#FIXME doing this in JS is problematic since JS can't control frames that go to outside sites
$r->print('<td align="center"> <b><a href="javascript:noTopic()" target="bodyframe">');	$r->print('<td align="center"> <b><a href="javascript:noTopic()" target="bodyframe">');
}	}
$r->print('
<image src="/adm/help/gif/smallHelp.gif" border="0" alt="(Topic help)" valign="middle" /> Topic help</a></b> </td>');
}	}
if ($requestmail) {	if ($requestmail) {
$r->print('	$r->print('
Line 167 END	Line 168 END
sub display_help_mainpage {	sub display_help_mainpage {
my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_;	my ($r,$color,$function,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail) = @_;
my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1);	my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1);
$bodytag=~/[\n\r]/ /g;	$bodytag=~s/[\n\r]/ /g;
$r->print(<<END);	$r->print(<<END);
<html>	<html>
<head>	<head>
<title>Help Content</title>	<title>Help Content</title>
<script type="text/javascript">	<script type="text/javascript">
function noTopic() {	function noTopic() {
bodyframe.document.write("<html><head><title>Topic Page</title></head>$bodytag")	bodyframe.document.write('<html><head><title>Topic Page</title></head>$bodytag')
bodyframe.document.write("The LON-CAPA help system does not currently include a specific pop-up help item for this topic. You may wish to consult the LON-CAPA <a href='/adm/help/author.manual.pdf'>Authoring Manual</a> or the <a href='/adm/help/course.manual.pdf'>Course Coordinator Manual</a>.")	bodyframe.document.write("The LON-CAPA help system does not currently include a specific pop-up help item for this topic. You may wish to consult the LON-CAPA <a href='/adm/help/author.manual.pdf'>Authoring Manual</a> or the <a href='/adm/help/course.manual.pdf'>Course Coordinator Manual</a>.")
bodyframe.document.write("</body></html>")	bodyframe.document.write("</body></html>")
body.document.close()	body.document.close()

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.3
changed lines
	Added in v.1.6