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

Diff for /loncom/interface/lonhelp.pm between versions 1.32 and 1.35

version 1.32, 2006/07/18 21:55:24 version 1.35, 2007/04/17 15:45:03
Line 81  HEADER Line 81  HEADER
  my $uri = $r->uri;   my $uri = $r->uri;
  $r->print(<<FOOTER);   $r->print(<<FOOTER);
     <hr /><form action="$uri" method="post">      <hr /><form action="$uri" method="post">
 $search: <input type="text" name="searchterm" size="40" /><input type="submit" value="$query" />  <label>$search: <input type="text" name="searchterm" size="40" /></label><input type="submit" value="$query" />
 </form>  </form>
 <br />  <br />
 $bugs  $bugs
Line 123  sub render { Line 123  sub render {
       } else {        } else {
   $label=~s/\.hlp$//;    $label=~s/\.hlp$//;
       }        }
              '\\begin{html}<a href="http://' . $serverroot ."/adm/help/".               '\\begin{html}<a href="/adm/help/'.
               $label .                $label .
               '.hlp#' . &processLabelName($1) .                 '.hlp#' . &processLabelName($1) . 
              '"><img src="http://' . $serverroot . '/adm/help/gif/smallHelp.gif" border="0" /></a>' .               '"><img src="/adm/help/gif/smallHelp.gif" border="0" /></a>' .
              '\\end{html}'               '\\end{html}'
              |gxe;               |gxe;
   
Line 135  sub render { Line 135  sub render {
   
     # Figures leftover without captions      # Figures leftover without captions
     $tex =~ s|  \\includegraphics(\[[^]]*\])*\{([^}]*)\}      $tex =~ s|  \\includegraphics(\[[^]]*\])*\{([^}]*)\}
              |  '\\begin{html}<img src="http://' . $serverroot . '/adm/help/gif/' . $2 . '.gif" border="2"'.               |  '\\begin{html}<img src="/adm/help/gif/' . $2 . '.gif" border="2"'.
                 ' bordercolor="#000000"/>\\end{html}'                  ' bordercolor="#000000"/>\\end{html}'
              |gxe;               |gxe;
   
Line 152  sub render { Line 152  sub render {
     # just duck the issue...      # just duck the issue...
   
     $tex =~ s/Figure 0://g;      $tex =~ s/Figure 0://g;
      $tex.=$Apache::lontexconvert::errorstring;      $tex.=$Apache::lontexconvert::errorstring;
     untie %fragmentLabels;      untie %fragmentLabels;
   
     return $tex;      return $tex;
Removed from v.1.32  
changed lines
  Added in v.1.35

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