--- loncom/interface/lonhelp.pm	2006/03/15 21:55:58	1.20
+++ loncom/interface/lonhelp.pm	2006/03/18 13:22:07	1.23
@@ -81,12 +81,13 @@ $search: <input type="text" name="search
     </body>
 $htmlend
 FOOTER
-    }
-    $r->print(<<ENDBODY);
+   } else {
+       $r->print(<<ENDBODY);
     <!-- END -->
     </body>
 $htmlend
 ENDBODY
+   }
 }
 
 # Render takes a tex fragment, transforms it for TtH, and returns the
@@ -142,64 +143,101 @@ sub render {
     return $tex;
 }
 
+sub listmatches {
+    my ($docroot,$term) =@_;
+    my $output='';
+    opendir(DIR,$docroot.'/adm/help/tex/');
+    foreach my $filename (sort readdir(DIR)) {
+	if ($filename=~/\.tex$/) {
+	    open(FH,$docroot.'/adm/help/tex/'.$filename);
+	    my $quote='';
+	    while (my $line=<FH>) {
+		if ($line=~/\Q$term\E/i) {
+		    $line=~s/\\\w+//gs;
+		    $line=~s/\{//gs;
+		    $line=~s/\}//gs;
+		    $line=~s/\\/ /gs;
+		    $line=~s/(\Q$term\E)/\<b\>$1\<\/b\>/gsi;
+		    $quote.='<br />...'.$line.'...';
+		}
+	    }
+	    close(FH);
+	    if ($quote) {
+		my $title=$filename;
+                $title=~s/\_/ /gs;
+                $title=~s/\.tex$//;
+                $filename=~s/\.tex$/\.hlp/;
+		$output.='<li><a href="/adm/help/tex/'.$filename.'">'.$title.'</a>'.$quote.'</li>';
+	    }
+	}
+    }
+    closedir(DIR);
+    return ($output?'<ul>'.$output.'</ul>':&mt('"[_1]" not found',$term));
+}
+
 sub handler {
      my $r = shift;
 
      my $docroot = $r->dir_config('lonDocRoot');
      my $serverroot = $ENV{'HTTP_HOST'};
 
-     my $filenames = &Apache::lonnet::unescape(substr ($ENV{'REQUEST_URI'} , 
-			    rindex($ENV{'REQUEST_URI'}, '/') + 1, -4));
-
-     # Security check on the file; the whole filename must consist
-     # of nothing but alphanums, ' ,, or ., or the file
-     # will be "not found", no matter what.
-     
-     return HTTP_NOT_FOUND if ($filenames !~ /\A[-0-9a-zA-z_'',:.]+\Z/);
-
      &Apache::lonlocal::get_language_handle($r);
-
-     # Join together the tex files, return HTTP_NOT_FOUND if any of
-     # them are not found
-     my $tex = '';
-     # Since in insertlist.tab I want to specify multiple files,
-     # and insertlist.tab also uses commas, I need something else
-     # so replace : with ,
-     $filenames =~ s/:/,/g;
-     my @files = split(/,/, $filenames);
-     
-     for my $filename (@files) {
-	 if (-e $docroot.'/adm/help/tex/'.
-	     &Apache::lonlocal::current_language().'/'.
-	     $filename.'.tex') {
-	     $filename=&Apache::lonlocal::current_language().'/'.$filename;
-	 }
-	 (my $file = Apache::File->new($docroot
-			   . '/adm/help/tex/'.$filename.'.tex'))
-	     or return HTTP_NOT_FOUND;
-	 $tex .= join('', <$file>);
-     }
-
-     if ($env{'browser.mathml'}) {
-	 &Apache::loncommon::content_type($r,'text/xml');
-	 &tth::ttminit();
-	 if ($env{'browser.unicode'}) {
-	     &tth::ttmoptions('-L -u1');
-	 } else {
-	     &tth::ttmoptions('-L -u0');
-	 }
-     } else {
+     my $text='';
+     if ($env{'form.searchterm'}=~/\w/) {
 	 &Apache::loncommon::content_type($r,"text/html");
-	 &tth::tthinit();
-	 if ($env{'browser.unicode'}) {
-	     &tth::tthoptions('-L -u1');
+	 $text=&listmatches($docroot,$env{'form.searchterm'});
+     } else {
+	 my $filenames = &Apache::lonnet::unescape(substr ($ENV{'REQUEST_URI'} , 
+							   rindex($ENV{'REQUEST_URI'}, '/') + 1, -4));
+	 
+	 # Security check on the file; the whole filename must consist
+	 # of nothing but alphanums, ' ,, or ., or the file
+	 # will be "not found", no matter what.
+	 
+	 return HTTP_NOT_FOUND if ($filenames !~ /\A[-0-9a-zA-z_'',:.]+\Z/);
+	 
+	 # Join together the tex files, return HTTP_NOT_FOUND if any of
+	 # them are not found
+	 my $tex = '';
+	 # Since in insertlist.tab I want to specify multiple files,
+	 # and insertlist.tab also uses commas, I need something else
+	 # so replace : with ,
+	 $filenames =~ s/:/,/g;
+	 my @files = split(/,/, $filenames);
+	 
+	 for my $filename (@files) {
+	     if (-e $docroot.'/adm/help/tex/'.
+		 &Apache::lonlocal::current_language().'/'.
+		 $filename.'.tex') {
+		 $filename=&Apache::lonlocal::current_language().'/'.$filename;
+	     }
+	     (my $file = Apache::File->new($docroot
+					   . '/adm/help/tex/'.$filename.'.tex'))
+	         or return HTTP_NOT_FOUND;
+	     $tex .= join('', <$file>);
+	 }
+	 
+	 if ($env{'browser.mathml'}) {
+	     &Apache::loncommon::content_type($r,'text/xml');
+	     &tth::ttminit();
+	     if ($env{'browser.unicode'}) {
+		 &tth::ttmoptions('-L -u1');
+	     } else {
+		 &tth::ttmoptions('-L -u0');
+	     }
 	 } else {
-	     &tth::tthoptions('-L -u0');
+	     &Apache::loncommon::content_type($r,"text/html");
+	     &tth::tthinit();
+	     if ($env{'browser.unicode'}) {
+		 &tth::tthoptions('-L -u1');
+	     } else {
+		 &tth::tthoptions('-L -u0');
+	     }
 	 }
+	 $text = &render($tex, $docroot, $serverroot);
      }
 
      $r->send_http_header;
-     my $text = &render($tex, $docroot, $serverroot);
      &servetext($r,$text);
      return OK;
 }