loncom/interface/lonhelp.pm - diff

Return to lonhelp.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2004/01/15 03:18:19	version 1.16, 2005/02/17 08:29:42
Line 53 sub processLabelName	Line 53 sub processLabelName
sub serveTex	sub serveTex
{	{
my ($tex, $r) = @_;	my ($tex, $r) = @_;
	my $html=&Apache::lonxml::xmlbegin();
my $bugs=&Apache::loncommon::help_open_bug('Documentation');	my $bugs=&Apache::loncommon::help_open_bug('Documentation');
my $header=&mt('LON-CAPA Help');	my $header=&mt('LON-CAPA Help');
my $footer=&mt('About LON-CAPA help and More Help');	my $footer=&mt('About LON-CAPA help and More Help');
$r->print(<<HEADER);	$r->print(<<HEADER);
<html>	$html
<head>	<head>
<title>LON-CAPA Help</title>	<title>LON-CAPA Help</title>
</head>	</head>
Line 101 sub render	Line 102 sub render
# LaTeX .aux files	# LaTeX .aux files
# absolute paths for use with help.loncapa.org	# absolute paths for use with help.loncapa.org
$tex =~ s\| \\ref\{([^}]*)\}	$tex =~ s\| \\ref\{([^}]*)\}
\|'\\begin{html}<a href="http://' . $serverroot ."/adm/help/".	\|
	if (not(exists($fragmentLabels{$1}))) {
	&Apache::lonnet::logthis("ERROR: $1 not a valid help label");
	};
	'\\begin{html}<a href="http://' . $serverroot ."/adm/help/".
substr($fragmentLabels{$1}, 0, -4) .	substr($fragmentLabels{$1}, 0, -4) .
'.hlp#' . processLabelName($1) .	'.hlp#' . processLabelName($1) .
'"><img src="http://' . $serverroot . '/adm/help/gif/smallHelp.gif" border="0" /></a>' .	'"><img src="http://' . $serverroot . '/adm/help/gif/smallHelp.gif" border="0" /></a>' .