version 1.22, 2006/03/16 17:18:34
|
version 1.24, 2006/03/19 23:09:20
|
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> |
|
<title>LON-CAPA Help</title> |
|
</head> |
|
<body bgcolor="#FFFFFF"> |
|
<h3 style="font: sans-serif"><img align="right" |
<h3 style="font: sans-serif"><img align="right" |
src="/adm/help/gif/lonhelpheader.gif"/>$header<hr />$bugs</h3> |
src="/adm/help/gif/lonhelpheader.gif"/>$header<hr />$bugs</h3> |
<!-- BEGIN --> |
<!-- BEGIN --> |
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'); |
|
|
$r->print(<<FOOTER); |
$r->print(<<FOOTER); |
<!-- END --> |
|
<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" /><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 157 sub listmatches {
|
Line 155 sub listmatches {
|
$line=~s/\{//gs; |
$line=~s/\{//gs; |
$line=~s/\}//gs; |
$line=~s/\}//gs; |
$line=~s/\\/ /gs; |
$line=~s/\\/ /gs; |
$line=~s/\Q$term\E/\<b\>$term\<\/b\>/gsi; |
$line=~s/(\Q$term\E)/\<b\>$1\<\/b\>/gsi; |
$quote.='<br />...'.$line.'...'; |
$quote.='<br />...'.$line.'...'; |
} |
} |
} |
} |