loncom/interface/lonhelp.pm - diff

Return to lonhelp.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2006/07/14 17:05:21	version 1.32, 2006/07/18 21:55:24
Line 59 sub processLabelName {	Line 59 sub processLabelName {
sub servetext {	sub servetext {
my ($r,$text) = @_;	my ($r,$text) = @_;
my $bugs=&Apache::loncommon::help_open_bug('Documentation','Report a documentation bug');	my $bugs=&Apache::loncommon::help_open_bug('Documentation','Report a documentation bug');
my $morehelp=Apache::loncommon::help_open_menu(undef,undef,1,undef,undef,undef,undef,'Help and Assistance Menu');	my $morehelp;#=&Apache::loncommon::help_open_menu(undef,undef,1,undef,undef,undef,undef,'Help and Assistance Menu');
my $start_page=	my $start_page=
&Apache::loncommon::start_page('LON-CAPA Help',undef,	&Apache::loncommon::start_page('LON-CAPA Help',undef,
{'only_body' => 1,});	{'only_body' => 1,});
Line 213 sub handler {	Line 213 sub handler {
$text=&listmatches($docroot,$env{'form.searchterm'});	$text=&listmatches($docroot,$env{'form.searchterm'});
}	}
} else {	} else {
my $filenames = &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
# of nothing but alphanums, ' ,, or ., or the file	# of nothing but alphanums, ' ,, or ., or the file