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

Diff for /loncom/interface/lonhelp.pm between versions 1.23 and 1.26

version 1.23, 2006/03/18 13:22:07 version 1.26, 2006/05/23 18:13:07
Line 53  sub processLabelName { Line 53  sub processLabelName {
 # Serve out the text  # Serve out the text
 sub servetext {  sub servetext {
     my ($r,$text) = @_;      my ($r,$text) = @_;
     my $html=&Apache::lonxml::xmlbegin();  
     my $htmlend=&Apache::lonxml::xmlend();  
     my $bugs=&Apache::loncommon::help_open_bug('Documentation');      my $bugs=&Apache::loncommon::help_open_bug('Documentation');
       my $start_page=
    &Apache::loncommon::start_page('LON-CAPA Help',undef,
          {'only_body' => 1,});
       my $end_page=
    &Apache::loncommon::end_page();
     my $header=&mt('LON-CAPA Help');      my $header=&mt('LON-CAPA Help');
     $r->print(<<HEADER);      $r->print(<<HEADER);
 $html      $start_page
     <head>      <h3 style="font: sans-serif"><img align="right" alt="help logo"
         <title>LON-CAPA Help</title>      src="/adm/help/gif/lonhelpheader.gif"/>$header</h3><hr />$bugs
     </head>  
     <body bgcolor="#FFFFFF">  
     <h3 style="font: sans-serif"><img align="right"  
     src="/adm/help/gif/lonhelpheader.gif"/>$header<hr />$bugs</h3>  
     <!-- BEGIN -->      <!-- BEGIN -->
 HEADER  HEADER
   
Line 73  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');
    my $uri = $r->uri;
  $r->print(<<FOOTER);   $r->print(<<FOOTER);
     <!-- END -->      <hr /><form action="$uri" method="post">
     <hr /><form method="post">  $search: <input type="text" name="searchterm" size="40" /><input type="submit" value="$query" />
 $search: <input type="text" name="searchterm" size="40" /><br />  </form>
   <br />
 <a href="/adm/help/abouthelp.html">$about</a>  <a href="/adm/help/abouthelp.html">$about</a>
     </body>  
 $htmlend  
 FOOTER  FOOTER
    } else {   
        $r->print(<<ENDBODY);      }
   
       $r->print(<<ENDBODY);
     <!-- END -->      <!-- END -->
     </body>      $end_page
 $htmlend  
 ENDBODY  ENDBODY
    }  
 }  }
   
 # Render takes a tex fragment, transforms it for TtH, and returns the  # Render takes a tex fragment, transforms it for TtH, and returns the
Line 144  sub render { Line 145  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 158  sub listmatches { Line 160  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 167  sub listmatches { Line 171  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 185  sub handler { Line 189  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.23  
changed lines
  Added in v.1.26

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