version 1.149, 2003/06/30 18:54:02
|
version 1.155, 2003/07/25 10:44:36
|
Line 157 sub start_html {
|
Line 157 sub start_html {
|
&Apache::lonxml::fontsettings(); |
&Apache::lonxml::fontsettings(); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
@Apache::londefdef::table = (); |
@Apache::londefdef::table = (); |
$currentstring .= '\documentclass[letterpaper]{article}'. |
$currentstring .= '\documentclass[letterpaper]{article}'; |
#'\batchmode'. |
if ($ENV{'form.latex_type'}=~'batchmode') {$currentstring .='\batchmode';} |
'\newcommand{\keephidden}[1]{} |
$currentstring .= '\newcommand{\keephidden}[1]{} |
\renewcommand{\deg}{$^{\circ}$} |
\renewcommand{\deg}{$^{\circ}$} |
|
\usepackage{longtable} |
\usepackage{textcomp} |
\usepackage{textcomp} |
\usepackage[dvips]{graphicx} |
\usepackage[dvips]{graphicx} |
\usepackage{epsfig}\usepackage{calc} |
\usepackage{epsfig}\usepackage{calc} |
Line 363 sub start_meta {
|
Line 364 sub start_meta {
|
$name=~s/\s/\_/gs; |
$name=~s/\s/\_/gs; |
$name=~s/\W//gs; |
$name=~s/\W//gs; |
if ($name) { |
if ($name) { |
$currentstring='<'.$name.'>'. |
$currentstring='<'.$name; |
|
my $display=&Apache::lonxml::get_param |
|
('display',$parstack,$safeeval,undef,1); |
|
if ($display) { |
|
$display=~s/\"/\'/g; |
|
$currentstring.=' display="'.$display.'"'; |
|
} |
|
$currentstring.='>'. |
&Apache::lonxml::get_param |
&Apache::lonxml::get_param |
('content',$parstack,$safeeval,undef,1). |
('content',$parstack,$safeeval,undef,1). |
'</'.$name.'>'; |
'</'.$name.'>'; |
} |
} |
|
my $display=&Apache::lonxml::get_param |
|
('display',$parstack,$safeeval,undef,1); |
|
if ($display) { |
|
$display=&HTML::Entities::encode($display); |
|
$currentstring.='<'.$name.'.display>'.$display. |
|
'</'.$name.'.display>'; |
|
} |
} |
} |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
&Apache::lonxml::startredirection(); |
my $content=&Apache::lonxml::get_param('content',$parstack,$safeeval); |
|
my $name=&Apache::lonxml::get_param('name',$parstack,$safeeval); |
|
if ((not defined $content) && (not defined $name)) { |
|
&Apache::lonxml::startredirection(); |
|
} |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
Line 445 sub start_body {
|
Line 464 sub start_body {
|
$currentstring.='<head>'. |
$currentstring.='<head>'. |
&Apache::lonmenu::registerurl(undef,$target).'</head>'; |
&Apache::lonmenu::registerurl(undef,$target).'</head>'; |
} |
} |
|
# Accessibility |
|
if ($ENV{'browser.imagesuppress'} eq 'on') { |
|
delete($token->[2]->{'background'}); |
|
} |
|
if ($ENV{'browser.fontenhance'} eq 'on') { |
|
my $style=''; |
|
foreach my $key (keys(%{$token->[2]})) { |
|
if ($key =~ /^style$/i) { |
|
$style.=$token->[2]->{$key}.';'; |
|
delete($token->[2]->{$key}); |
|
} |
|
} |
|
$token->[2]->{'style'}=$style.'; font-size: x-large;'; |
|
} |
|
if ($ENV{'browser.blackwhite'} eq 'on') { |
|
delete($token->[2]->{'font'}); |
|
delete($token->[2]->{'link'}); |
|
delete($token->[2]->{'alink'}); |
|
delete($token->[2]->{'vlink'}); |
|
delete($token->[2]->{'bgcolor'}); |
|
delete($token->[2]->{'background'}); |
|
} |
|
# Overload loads |
my $onLoad=''; |
my $onLoad=''; |
foreach my $key (keys(%{$token->[2]})) { |
foreach my $key (keys(%{$token->[2]})) { |
if ($key =~ /^onload$/i) { |
if ($key =~ /^onload$/i) { |
Line 1160 sub start_font {
|
Line 1202 sub start_font {
|
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |
my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval); |
my $face=&Apache::lonxml::get_param('face',$parstack,$safeeval); |
if ($face=~/symbol/i) {$Apache::lonxml::prevent_entity_encode++;} |
if ($face=~/symbol/i) { |
|
$Apache::lonxml::prevent_entity_encode++; |
|
} else { |
|
if (($ENV{'browser.fontenhance'} eq 'on') || |
|
($ENV{'browser.blackwhite'} eq 'on')) { return ''; } |
|
} |
$currentstring = $token->[4]; |
$currentstring = $token->[4]; |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval); |
my $fontsize=&Apache::lonxml::get_param('TeXsize',$parstack,$safeeval); |
Line 1620 sub start_dd {
|
Line 1667 sub start_dd {
|
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
if ($$tagstack[-2] eq 'dl') { |
if ($$tagstack[-2] eq 'dl') { |
$currentstring = ' \item [] '; |
$currentstring = ' \item [] '; |
|
} elsif ($$tagstack[-2] eq 'dt') { |
|
$currentstring = ']'; |
} |
} |
} |
} |
return $currentstring; |
return $currentstring; |