version 1.24, 2006/03/19 23:09:20
|
version 1.25, 2006/04/03 02:04:55
|
Line 72 HEADER
|
Line 72 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'); |
$r->print(<<FOOTER); |
$r->print(<<FOOTER); |
<hr /><form method="post"> |
<hr /><form method="post"> |
$search: <input type="text" name="searchterm" size="40" /><br /> |
$search: <input type="text" name="searchterm" size="40" /><input type="submit" value="$query" /><br /> |
<a href="/adm/help/abouthelp.html">$about</a> |
<a href="/adm/help/abouthelp.html">$about</a> |
FOOTER |
FOOTER |
|
|
Line 142 sub render {
|
Line 142 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 156 sub listmatches {
|
Line 157 sub listmatches {
|
$line=~s/\}//gs; |
$line=~s/\}//gs; |
$line=~s/\\/ /gs; |
$line=~s/\\/ /gs; |
$line=~s/(\Q$term\E)/\<b\>$1\<\/b\>/gsi; |
$line=~s/(\Q$term\E)/\<b\>$1\<\/b\>/gsi; |
|
$line=~s/\</\<\;/gs; |
|
$line=~s/\>/\>\;/gs; |
$quote.='<br />...'.$line.'...'; |
$quote.='<br />...'.$line.'...'; |
} |
} |
} |
} |
Line 165 sub listmatches {
|
Line 168 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 183 sub handler {
|
Line 186 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 = &Apache::lonnet::unescape(substr ($ENV{'REQUEST_URI'} , |
rindex($ENV{'REQUEST_URI'}, '/') + 1, -4)); |
rindex($ENV{'REQUEST_URI'}, '/') + 1, -4)); |