[BACK]Return to lonhelp.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhelp.pm between versions 1.24 and 1.25

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/\</\&lt\;/gs;
                       $line=~s/\>/\&gt\;/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));
Removed from v.1.24  
changed lines
  Added in v.1.25

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