version 1.26, 2006/05/23 18:13:07
|
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 199 sub handler {
|
Line 204 sub handler {
|
$text=&listmatches($docroot,$env{'form.searchterm'}); |
$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 |