[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.28

version 1.24, 2006/03/19 23:09:20 version 1.28, 2006/06/26 22:22:00
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 62  sub servetext { Line 67  sub servetext {
     my $header=&mt('LON-CAPA Help');      my $header=&mt('LON-CAPA Help');
     $r->print(<<HEADER);      $r->print(<<HEADER);
     $start_page      $start_page
     <h3 style="font: sans-serif"><img align="right"      <h3 style="font: sans-serif"><img align="right" alt="help logo"
     src="/adm/help/gif/lonhelpheader.gif"/>$header<hr />$bugs</h3>      src="/adm/help/gif/lonhelpheader.gif"/>$header</h3><hr />$bugs
     <!-- BEGIN -->      <!-- BEGIN -->
 HEADER  HEADER
   
Line 72  HEADER Line 77  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');
    my $uri = $r->uri;
  $r->print(<<FOOTER);   $r->print(<<FOOTER);
     <hr /><form method="post">      <hr /><form action="$uri" method="post">
 $search: <input type="text" name="searchterm" size="40" /><br />  $search: <input type="text" name="searchterm" size="40" /><input type="submit" value="$query" />
   </form>
   <br />
 <a href="/adm/help/abouthelp.html">$about</a>  <a href="/adm/help/abouthelp.html">$about</a>
 FOOTER  FOOTER
     
Line 142  sub render { Line 150  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 165  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 176  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 180  sub handler { Line 191  sub handler {
      my $serverroot = $ENV{'HTTP_HOST'};       my $serverroot = $ENV{'HTTP_HOST'};
   
      &Apache::lonlocal::get_language_handle($r);       &Apache::lonlocal::get_language_handle($r);
        &Apache::loncommon::content_type($r,"text/html");
      my $text='';       my $text='';
      if ($env{'form.searchterm'}=~/\w/) {       if ($env{'form.searchterm'}=~/\w/) {
  &Apache::loncommon::content_type($r,"text/html");   ($text,my $matches)=&listmatches($docroot,$env{'form.searchterm'},&Apache::lonlocal::current_language().'/');
  $text=&listmatches($docroot,$env{'form.searchterm'});           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 = &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
Line 214  sub handler { Line 233  sub handler {
          or return HTTP_NOT_FOUND;           or return HTTP_NOT_FOUND;
      $tex .= join('', <$file>);       $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 {  
      &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);   $text = &render($tex, $docroot, $serverroot);
      }       }
   
Removed from v.1.24  
changed lines
  Added in v.1.28

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