version 1.456.2.2, 2016/08/13 20:01:52
|
version 1.467, 2023/03/15 16:47:59
|
Line 92 sub start_m {
|
Line 92 sub start_m {
|
my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser); |
my $inside = &Apache::lonxml::get_all_text_unbalanced("/m",$parser); |
if ($target eq 'web' || $target eq 'analyze') { |
if ($target eq 'web' || $target eq 'analyze') { |
&Apache::lonxml::debug("M is starting with:$inside:"); |
&Apache::lonxml::debug("M is starting with:$inside:"); |
|
if (!($inside =~ /^\s*\$.*\$\s*$/ || $inside =~ /^\s*\\[([].*\\[)\]]\s*$/)) { |
|
# Non-math LaTeX will not be rendered correctly with MathJax |
|
# and it should be avoided anyway. |
|
# On top of that, MathJax will render math without $, but |
|
# it will fail with tth. This is worth a warning. |
|
# (even though some people might just use latex for printing) |
|
&Apache::lonxml::warning(&mt('Missing $ in [_1].','<m>')); |
|
} elsif (($env{'browser.type'} eq 'safari') && ($env{'form.editxmltext'}) && |
|
(($env{'form.problemmode'} eq 'view') || ($env{'form.problemmode'} eq 'discard'))) { |
|
my $delimiter; |
|
if ($inside =~ /\$$/) { |
|
$delimiter = '$'; |
|
} elsif ($inside =~ /\\([)\]])$/) { |
|
$delimiter = $1; |
|
} |
|
if ($delimiter) { |
|
&Apache::lonxml::warning(&mt('Insert a space between [_1] and [_2].', |
|
$delimiter,'</m>')); |
|
} |
|
} |
my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval); |
my $eval=&Apache::lonxml::get_param('eval',$parstack,$safeeval); |
if ($eval eq 'on') { |
if ($eval eq 'on') { |
$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]); |
Line 347 sub start_title {
|
Line 367 sub start_title {
|
$Apache::londefdef::title = |
$Apache::londefdef::title = |
&Apache::lonxml::get_all_text('/title',$parser,$style); |
&Apache::lonxml::get_all_text('/title',$parser,$style); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
$currentstring .= '\keephidden{Title of the document: ' |
$currentstring .= '\keephidden{Title of the document: '; |
} |
} |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
$currentstring='<title>'; |
$currentstring='<title>'; |
Line 638 sub edit_controls {
|
Line 658 sub edit_controls {
|
} |
} |
$result .= ' |
$result .= ' |
<div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />'; |
<div><input type="submit" name="editmode" accesskey="e" value="'.&mt('Edit').'" />'; |
|
if ($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9) { |
|
my $uri = $env{'request.uri'}; |
|
my $daxeurl = '/daxepage'.$uri; |
|
$result .= '<input type="button" value="'.&mt('Edit with Daxe').'" '. |
|
'onclick="window.open(\''.$daxeurl.'\',\'_blank\');" />'; |
|
} |
if (($env{'request.course.id'}) && ($env{'form.forceedit'})) { |
if (($env{'request.course.id'}) && ($env{'form.forceedit'})) { |
my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'}); |
my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'}); |
if ($url =~ /\.html?$/i) { |
if ($url =~ /\.html?$/i) { |
Line 812 sub end_h1 {
|
Line 838 sub end_h1 {
|
$currentstring .= $token->[2]; |
$currentstring .= $token->[2]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $post='\vskip 0 mm '; |
my $post='\vskip 0 mm '; |
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); |
my $align=lc(&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1)); |
if ($align eq 'center') { |
if ($align eq 'center') { |
$post='\end{center}'; |
$post='\end{center}'; |
} elsif ($align eq 'left') { |
} elsif ($align eq 'left') { |
Line 1291 sub start_p {
|
Line 1317 sub start_p {
|
|
|
$currentstring .= &end_p(); # close off prior para if in progress. |
$currentstring .= &end_p(); # close off prior para if in progress. |
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); |
my $align=&Apache::lonxml::get_param('align',$parstack,$safeeval,undef,1); |
|
if (!defined $align) { |
|
# check inline CSS |
|
$align = &get_css_property('text-align',$parstack,$safeeval); |
|
} |
if ($align eq 'center') { |
if ($align eq 'center') { |
$currentstring .='\begin{center}\par '; |
$currentstring .='\begin{center}\par '; |
$closing_string = '\end{center}'; |
$closing_string = '\end{center}'; |
Line 1298 sub start_p {
|
Line 1328 sub start_p {
|
$currentstring = ¢er_correction().$currentstring; |
$currentstring = ¢er_correction().$currentstring; |
} |
} |
} elsif ($align eq 'right') { |
} elsif ($align eq 'right') { |
$currentstring.="\n".'{\flushright '; |
$currentstring.="\n".'\begin{flushright}'; |
# $currentstring.='\makebox['.$env{'form.textwidth'}.']{\hfill\llap{'; |
# $currentstring.='\makebox['.$env{'form.textwidth'}.']{\hfill\llap{'; |
$closing_string= "}\n"; |
$closing_string= '\end{flushright}'."\n"; |
} elsif ($align eq 'left') { |
} elsif ($align eq 'left') { |
$currentstring.= "\n".'{\flushleft '; |
$currentstring.= "\n".'\begin{flushleft}'; |
# $currentstring.='\noindent\makebox['.$env{'form.textwidth'}.']{{'; |
# $currentstring.='\noindent\makebox['.$env{'form.textwidth'}.']{{'; |
$closing_string = "}\n"; |
$closing_string = '\end{flushleft}'."\n"; |
} else { |
} else { |
$currentstring.='\par '; |
$currentstring.='\par '; |
if (&is_inside_of($tagstack, 'table')) { |
if (&is_inside_of($tagstack, 'table')) { |
Line 2858 sub start_img {
|
Line 2888 sub start_img {
|
my $only = join(',',&Apache::loncommon::filecategorytypes('Pictures')); |
my $only = join(',',&Apache::loncommon::filecategorytypes('Pictures')); |
$currentstring .=&Apache::edit::tag_start($target,$token); |
$currentstring .=&Apache::edit::tag_start($target,$token); |
$currentstring .=&Apache::edit::text_arg('Image Url:','src',$token,70). |
$currentstring .=&Apache::edit::text_arg('Image Url:','src',$token,70). |
&Apache::edit::browse('src',undef,'alt',$only).' '. |
&Apache::edit::browse_or_search('src',undef,'alt',$only,undef,1). |
&Apache::edit::search('src',undef,'alt').'<br />'; |
'<br />'; |
$currentstring .=&Apache::edit::text_arg('Description:','alt',$token,70).'<br />'; |
$currentstring .=&Apache::edit::text_arg('Description:','alt',$token,70).'<br />'; |
$currentstring .=&Apache::edit::text_arg('width (pixel):','width',$token,5); |
$currentstring .=&Apache::edit::text_arg('width (pixel):','width',$token,5); |
$currentstring .=&Apache::edit::text_arg('height (pixel):','height',$token,5).'<br />'; |
$currentstring .=&Apache::edit::text_arg('height (pixel):','height',$token,5).'<br />'; |
Line 2881 sub start_img {
|
Line 2911 sub start_img {
|
my $src= &Apache::lonxml::get_param('src',$parstack,$safeeval); |
my $src= &Apache::lonxml::get_param('src',$parstack,$safeeval); |
my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval); |
my $width= &Apache::lonxml::get_param('width',$parstack,$safeeval); |
my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval); |
my $height= &Apache::lonxml::get_param('height',$parstack,$safeeval); |
|
my $element = &Apache::edit::get_element('src'); |
|
my $text; |
if ($token->[2]{'src'}=~/\$/) { |
if ($token->[2]{'src'}=~/\$/) { |
$currentstring.=&mt('Variable image source'); |
$text = &mt('Variable image source'); |
} elsif ($token->[2]{'src'}=~/\S/) { |
} elsif ($token->[2]{'src'}=~/\S/) { |
$currentstring .= '<img src="'.$src.'" alt="'.$alt.'" '; |
$currentstring .= '<img src="'.$src.'" alt="'.$alt.'" '; |
if ($width) { $currentstring.=' width="'.$width.'" '; } |
if ($width) { $currentstring.=' width="'.$width.'" '; } |
if ($height) { $currentstring.=' height="'.$height.'" '; } |
if ($height) { $currentstring.=' height="'.$height.'" '; } |
$currentstring .= ' />'; |
$currentstring .= ' id="previewimg_'.$element.'" />'; |
} else { |
} else { |
$currentstring.=&mt("No image source specified"); |
$text = &mt("No image source specified"); |
} |
} |
|
$currentstring .= ' <span id="showimg_'.$element.'">'.$text.'</span>'; |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
my ($osrc,$owidth,$oheight)= |
my ($osrc,$owidth,$oheight)= |
($token->[2]{'src'},$token->[2]{'width'},$token->[2]{'height'}); |
($token->[2]{'src'},$token->[2]{'width'},$token->[2]{'height'}); |
Line 4037 sub end_spacer {
|
Line 4069 sub end_spacer {
|
return $currentstring; |
return $currentstring; |
} |
} |
|
|
|
my @span_end_stack; # for span tex target |
|
|
#-- <span> tag (end tag required) |
#-- <span> tag (end tag required) |
sub start_span { |
sub start_span { |
my ($target,$token) = @_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web' || $target eq 'webgrade') { |
if ($target eq 'web' || $target eq 'webgrade') { |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} |
} elsif ($target eq 'tex') { |
|
my $endstring = ''; |
|
my $family = &get_css_property('font-family',$parstack,$safeeval); |
|
if ($family eq 'monospace') { |
|
$currentstring .= '\texttt{'; |
|
$endstring .= '}'; |
|
} |
|
my $weight = &get_css_property('font-weight',$parstack,$safeeval); |
|
if ($weight eq 'bold') { |
|
$currentstring .= '\textbf{'; |
|
$endstring .= '}'; |
|
} |
|
my $style = &get_css_property('font-style',$parstack,$safeeval); |
|
if ($style eq 'italic') { |
|
$currentstring .= '\textit{'; |
|
$endstring .= '}'; |
|
} |
|
push(@span_end_stack, $endstring); |
|
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 4052 sub end_span {
|
Line 4104 sub end_span {
|
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web' || $target eq 'webgrade') { |
if ($target eq 'web' || $target eq 'webgrade') { |
$currentstring = $token->[2]; |
$currentstring = $token->[2]; |
} |
} elsif ($target eq 'tex') { |
|
my $endstring = pop @span_end_stack; |
|
$currentstring .= $endstring; |
|
} |
return $currentstring; |
return $currentstring; |
} |
} |
|
|
Line 4650 sub clean_docs_httpref {
|
Line 4705 sub clean_docs_httpref {
|
return $cleanhref; |
return $cleanhref; |
} |
} |
|
|
|
# This is retrieving a CSS property from the style attribute of the current element. |
|
# It is not checking <style> elements or linked stylesheets yet. |
|
sub get_css_property { |
|
my ($property,$parstack,$safeeval) = @_; |
|
my $style=&Apache::lonxml::get_param('style',$parstack,$safeeval,undef,1); |
|
my @style_components=split(/;/,$style); |
|
foreach my $css_pair (@style_components) { |
|
my ($name, $value) = split(/:/, $css_pair); |
|
$name =~ s/^\s+|\s+$//g; |
|
$value =~ s/^\s+|\s+$//g; |
|
if ($name eq $property) { |
|
return $value; |
|
} |
|
} |
|
return undef; |
|
} |
|
|
=pod |
=pod |
|
|
=head1 NAME |
=head1 NAME |