loncom/interface/lonhelp.pm - diff

Return to lonhelp.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhelp.pm between versions 1.22 and 1.27

version 1.22, 2006/03/16 17:18:34	version 1.27, 2006/05/30 12:46:09
Line 1	Line 1
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
	#
	# $Id$
	#
# .tex help system web server handler	# .tex help system web server handler
#	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
Line 24	Line 27
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# .tex file help handler	# .tex file help handler
# YEAR=2002
# 7/4 Jeremy Bowers

package Apache::lonhelp;	package Apache::lonhelp;

Line 40 use Apache::lonlocal;	Line 42 use Apache::lonlocal;
use Apache::lonnet;	use Apache::lonnet;
use tth();	use tth();
use GDBM_File();	use GDBM_File();
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


# This sub takes the name of a label in, and converts it to something	# This sub takes the name of a label in, and converts it to something
# that is a valid anchor name.	# that is a valid anchor name.
Line 53 sub processLabelName {	Line 58 sub processLabelName {
# Serve out the text	# Serve out the text
sub servetext {	sub servetext {
my ($r,$text) = @_;	my ($r,$text) = @_;
my $html=&Apache::lonxml::xmlbegin();
my $htmlend=&Apache::lonxml::xmlend();
my $bugs=&Apache::loncommon::help_open_bug('Documentation');	my $bugs=&Apache::loncommon::help_open_bug('Documentation');
	my $start_page=
	&Apache::loncommon::start_page('LON-CAPA Help',undef,
	{'only_body' => 1,});
	my $end_page=
	&Apache::loncommon::end_page();
my $header=&mt('LON-CAPA Help');	my $header=&mt('LON-CAPA Help');
$r->print(<<HEADER);	$r->print(<<HEADER);
$html	$start_page
<head>	<h3 style="font: sans-serif"><img align="right" alt="help logo"
<title>LON-CAPA Help</title>	src="/adm/help/gif/lonhelpheader.gif"/>$header</h3><hr />$bugs
</head>
<body bgcolor="#FFFFFF">
<h3 style="font: sans-serif"><img align="right"
src="/adm/help/gif/lonhelpheader.gif"/>$header<hr />$bugs</h3>
<!-- BEGIN -->	<!-- BEGIN -->
HEADER	HEADER

Line 73 HEADER	Line 77 HEADER
if (&Apache::lonnavmaps::advancedUser()) {	if (&Apache::lonnavmaps::advancedUser()) {
my $search=&mt('Search LON-CAPA help');	my $search=&mt('Search LON-CAPA help');
my $about=&mt('About LON-CAPA help and More Help');	my $about=&mt('About LON-CAPA help and More Help');
	my $query=&mt('Search');
	my $uri = $r->uri;
$r->print(<<FOOTER);	$r->print(<<FOOTER);
<!-- END -->	<hr /><form action="$uri" method="post">
<hr /><form method="post">	$search: <input type="text" name="searchterm" size="40" /><input type="submit" value="$query" />
$search: <input type="text" name="searchterm" size="40" /><br />	</form>
	<br />
<a href="/adm/help/abouthelp.html">$about</a>	<a href="/adm/help/abouthelp.html">$about</a>
</body>
$htmlend
FOOTER	FOOTER
} else {
$r->print(<<ENDBODY);	}

	$r->print(<<ENDBODY);
<!-- END -->	<!-- END -->
</body>	$end_page
$htmlend
ENDBODY	ENDBODY
}
}	}

# Render takes a tex fragment, transforms it for TtH, and returns the	# Render takes a tex fragment, transforms it for TtH, and returns the
Line 144 sub render {	Line 150 sub render {
}	}

sub listmatches {	sub listmatches {
my ($docroot,$term) =@_;	my ($docroot,$term,$subdir) =@_;
	unless ($subdir) { $subdir=''; }
my $output='';	my $output='';
opendir(DIR,$docroot.'/adm/help/tex/');	opendir(DIR,$docroot.'/adm/help/tex/'.$subdir);
foreach my $filename (sort readdir(DIR)) {	foreach my $filename (sort readdir(DIR)) {
if ($filename=~/\.tex$/) {	if ($filename=~/\.tex$/) {
open(FH,$docroot.'/adm/help/tex/'.$filename);	open(FH,$docroot.'/adm/help/tex/'.$subdir.$filename);
my $quote='';	my $quote='';
while (my $line=<FH>) {	while (my $line=<FH>) {
if ($line=~/\Q$term\E/i) {	if ($line=~/\Q$term\E/i) {
Line 157 sub listmatches {	Line 164 sub listmatches {
$line=~s/\{//gs;	$line=~s/\{//gs;
$line=~s/\}//gs;	$line=~s/\}//gs;
$line=~s/\\/ /gs;	$line=~s/\\/ /gs;
$line=~s/\Q$term\E/\<b\>$term\<\/b\>/gsi;	$line=~s/(\Q$term\E)/\<b\>$1\<\/b\>/gsi;
	$line=~s/\</\&lt\;/gs;
	$line=~s/\>/\&gt\;/gs;
$quote.='<br />...'.$line.'...';	$quote.='<br />...'.$line.'...';
}	}
}	}
Line 167 sub listmatches {	Line 176 sub listmatches {
$title=~s/\_/ /gs;	$title=~s/\_/ /gs;
$title=~s/\.tex$//;	$title=~s/\.tex$//;
$filename=~s/\.tex$/\.hlp/;	$filename=~s/\.tex$/\.hlp/;
$output.='<li><a href="/adm/help/tex/'.$filename.'">'.$title.'</a>'.$quote.'</li>';	$output.='<li><a href="/adm/help/tex/'.$subdir.$filename.'">'.$title.'</a>'.$quote.'</li>';
}	}
}	}
}	}
closedir(DIR);	closedir(DIR);
return ($output?'<ul>'.$output.'</ul>':&mt('"[_1]" not found',$term));	return (($output?'<ul>'.$output.'</ul>':&mt('"[_1]" not found',$term)),$output);
}	}

sub handler {	sub handler {
Line 185 sub handler {	Line 194 sub handler {
my $text='';	my $text='';
if ($env{'form.searchterm'}=~/\w/) {	if ($env{'form.searchterm'}=~/\w/) {
&Apache::loncommon::content_type($r,"text/html");	&Apache::loncommon::content_type($r,"text/html");
$text=&listmatches($docroot,$env{'form.searchterm'});	($text,my $matches)=&listmatches($docroot,$env{'form.searchterm'},&Apache::lonlocal::current_language().'/');
	if ($matches) {
	my ($englishresult,$englishmatches)=&listmatches($docroot,$env{'form.searchterm'});
	if ($englishmatches) {
	$text.='<hr />'.$englishresult;
	}
	} else {
	$text=&listmatches($docroot,$env{'form.searchterm'});
	}
} else {	} else {
my $filenames = &Apache::lonnet::unescape(substr ($ENV{'REQUEST_URI'} ,	my $filenames = &unescape(substr ($ENV{'REQUEST_URI'} ,
rindex($ENV{'REQUEST_URI'}, '/') + 1, -4));	rindex($ENV{'REQUEST_URI'}, '/') + 1, -4));

# Security check on the file; the whole filename must consist	# Security check on the file; the whole filename must consist

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

Removed from v.1.22
changed lines
	Added in v.1.27