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.31 and 1.38

version 1.31, 2006/07/18 21:55:24	version 1.38, 2009/10/20 14:29:44
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# generate frame-based help system	# generate frame-based help system
#	#
	# $Id$
	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
#	#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 72 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 %domconfig = &Apache::lonnet::get_dom('configuration',['login'],$dom);
my $scripttag = '';	my $scripttag = '';
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {	if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
my $displayurl = &escape($origurl);	my $displayurl = &escape($origurl);
Line 141 SCRIPT_TWO	Line 145 SCRIPT_TWO
'only_body' => 1,});	'only_body' => 1,});
$r->print($start_page);	$r->print($start_page);

my $width = ($stayOnPage) ? '700' : '600';	my $width = ($stayOnPage) ? '95%' : '600';

$r->print('<table id="LC_helpmenu" width="'.$width.'">');	$r->print('<table id="LC_helpmenu" width="'.$width.'">');

my $general_help = &Apache::loncommon::general_help();	my $general_help = &Apache::loncommon::general_help();
Line 153 SCRIPT_TWO	Line 156 SCRIPT_TWO
<fieldset><legend><img src="$location/lonIcons/minilogo.gif" height='20' width='29' valign='bottom' />  LON-CAPA help/support</legend>	<fieldset><legend><img src="$location/lonIcons/minilogo.gif" height='20' width='29' valign='bottom' />  LON-CAPA help/support</legend>
<table id="LC_helpmenu_links">	<table id="LC_helpmenu_links">
<tr>	<tr>
<td><a href="/adm/help/$general_help.hlp" target="bodyframe">	<td><span class="LC_nobreak"><a href="/adm/help/$general_help.hlp" target="bodyframe">
<img src="$location/help/gif/smallHelp.gif" border="0" alt="(General help)" valign="middle" /> General Help</a> </td>	<img src="$location/help/help.png" border="0" alt="(General help)" valign="middle" /> General Help</a> </span></td>
END	END
if ($component_url) {	if ($component_url) {
$r->print("<td><a href=\"$component_url\" target=\"bodyframe\">".	$r->print("<td><span class=\"LC_nobreak\"><a href=\"$component_url\" target=\"bodyframe\">".
'<img src="'.$location.'/help/gif/smallHelp.gif" border="0" alt="(Topic help)" valign="middle" /> '.$topic.'</a> </td>');	'<img src="'.$location.'/help/help.png" border="0" alt="(Topic help)" valign="middle" /> '.$topic.'</a> </span></td>');
}	}
if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {	if ($requestmail =~ m/^[^\@]+\@[^\@]+$/) {
$r->print('	$r->print('
<td> <a href="javascript:gohelpdesk()"><img src="'.$location.'/lonIcons/helpdesk.gif" border="0" alt="(Ask helpdesk)" valign="middle" /> Ask helpdesk</a> </td>');	<td><span class="LC_nobreak"> <a href="javascript:gohelpdesk()"><img src="'.$location.'/lonIcons/helpdesk.gif" border="0" alt="(Ask helpdesk)" valign="middle" /> Ask helpdesk</a> </span></td>');
}	}
if ($faq && $env{'user.adv'}) {	if ($faq && $env{'user.adv'}) {
$r->print(<<END);	$r->print(<<END);
<td>	<td><span class="LC_nobreak"> <a href="$faqbaseurl/fom/cache/$faq.html" target="bodyframe"><img src="$location/lonMisc/smallFAQ.gif" border="0" alt="(FAQ)" valign="middle" /> FAQ</a> </span>
<a href="$faqbaseurl/fom/cache/$faq.html" target="bodyframe"><img src="$location/lonMisc/smallFAQ.gif" border="0" alt="(FAQ)" valign="middle" /> FAQ</a>
</td>	</td>
END	END
}	}
if ($env{'user.adv'}) {	if ($env{'user.adv'}) {
$r->print(<<END);	if ($domconfig{'login'}{'submitbugs'} eq '1' \|\|
<td> <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></td>	$domconfig{'login'}{'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);
<td> <a href="$origurl" target="_top"><img src="$location/lonIcons/move_up.gif" border="0" alt="(Return to last location)" valign="middle" /> Return to last location</a> </td>	<td><span class="LC_nobreak"> <a href="$origurl" target="_top"><img src="$location/lonIcons/move_up.gif" border="0" alt="(Return to last location)" valign="middle" /> Return to last location</a> </span></td>
END	END
} else {	} else {
$r->print(<<END);	$r->print(<<END);
<td> <a href="javascript:window.close()" target="_top"><img src="$location/lonIcons/closepage.gif" border="0" alt="(Close window)" valign="bottom" /> Close</a> </td>	<td><span class="LC_nobreak" <a href="javascript:window.close()" target="_top"><img src="$location/lonIcons/closepage.gif" border="0" alt="(Close window)" valign="bottom" /> Close</a> </span></td>
END	END
}	}
$r->print(<<END);	$r->print(<<END);
Line 190 END	Line 195 END
</table>	</table>
</fieldset>	</fieldset>
</td>	</td>
<td width='5'> </td>	<td width='100%'> </td>
</tr>	</tr>
<tr height='5'>	<tr height='5'>
<td colspan='3' height='5'> </td>	<td colspan='3' height='5'> </td>

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

Removed from v.1.31
changed lines
	Added in v.1.38