version 1.247, 2003/04/07 22:28:08
|
version 1.254, 2003/05/16 20:51:25
|
Line 380 sub printtokenheader {
|
Line 380 sub printtokenheader {
|
sub fontsettings() { |
sub fontsettings() { |
my $headerstring=''; |
my $headerstring=''; |
if (($ENV{'browser.os'} eq 'mac') && (!$ENV{'browser.mathml'})) { |
if (($ENV{'browser.os'} eq 'mac') && (!$ENV{'browser.mathml'})) { |
$headerstring.= |
$headerstring.= |
'<meta Content-Type="text/html; charset=x-mac-roman">'; |
'<meta Content-Type="text/html; charset=x-mac-roman">'; |
|
} elsif (!$ENV{'browser.mathml'}) { |
|
$headerstring.= |
|
'<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />'; |
} |
} |
return $headerstring; |
return $headerstring; |
} |
} |
Line 557 sub inner_xmlparse {
|
Line 560 sub inner_xmlparse {
|
} |
} |
} |
} |
if (($token->[0] eq 'T') || ($token->[0] eq 'C') || ($token->[0] eq 'D') ) { |
if (($token->[0] eq 'T') || ($token->[0] eq 'C') || ($token->[0] eq 'D') ) { |
if ($target eq 'tex') { |
#Style file definitions should be correct |
$result=&latex_special_symbols($result,$stack,$parstack); |
if ($target eq 'tex' && ($Apache::lonxml::usestyle)) { |
} |
$result=&latex_special_symbols($result,$stack,$parstack); |
|
} |
} |
} |
|
|
# Encode any high ASCII characters |
# Encode any high ASCII characters |
Line 718 sub init_safespace {
|
Line 722 sub init_safespace {
|
$safeeval->permit("sort"); |
$safeeval->permit("sort"); |
$safeeval->deny(":base_io"); |
$safeeval->deny(":base_io"); |
$safehole->wrap(\&Apache::scripttag::xmlparse,$safeeval,'&xmlparse'); |
$safehole->wrap(\&Apache::scripttag::xmlparse,$safeeval,'&xmlparse'); |
|
$safehole->wrap(\&Apache::outputtags::multipart,$safeeval,'&multipart'); |
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT'); |
|
|
$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin'); |
$safehole->wrap(\&Math::Cephes::asin,$safeeval,'&asin'); |
Line 799 sub init_safespace {
|
Line 804 sub init_safespace {
|
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name); |
$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name); |
$safeinit .= ';$external::randomseed='.$rndseed.';'; |
$safeinit .= ';$external::randomseed='.$rndseed.';'; |
|
&Apache::lonxml::debug("Setting rndseed to $rndseed"); |
&Apache::run::run($safeinit,$safeeval); |
&Apache::run::run($safeinit,$safeeval); |
} |
} |
|
|
Line 1123 sub inserteditinfo {
|
Line 1129 sub inserteditinfo {
|
&Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols', |
&Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols', |
undef,undef,600) |
undef,undef,600) |
.'</td></tr></table>'; |
.'</td></tr></table>'; |
|
my $titledisplay=&display_title(); |
my $buttons=(<<BUTTONS); |
my $buttons=(<<BUTTONS); |
<input type="submit" name="attemptclean" |
<input type="submit" name="attemptclean" |
value="Save and then attempt to clean HTML" /> |
value="Save and then attempt to clean HTML" /> |
Line 1140 $buttons<br />
|
Line 1147 $buttons<br />
|
<br />$buttons |
<br />$buttons |
<br /> |
<br /> |
</form> |
</form> |
|
$titledisplay |
ENDFOOTER |
ENDFOOTER |
# $result=~s/(\<body[^\>]*\>)/$1$editheader/is; |
# $result=~s/(\<body[^\>]*\>)/$1$editheader/is; |
$result=~s/(\<\/body\>)/$editfooter/is; |
$result=~s/(\<\/body\>)/$editfooter/is; |
Line 1246 ENDNOTFOUND
|
Line 1254 ENDNOTFOUND
|
|
|
writeallows($request->uri); |
writeallows($request->uri); |
|
|
|
|
$request->print($result); |
$request->print($result); |
|
|
return OK; |
return OK; |
} |
} |
|
|
|
sub display_title { |
|
my $result; |
|
if ($ENV{'request.state'} eq 'construct') { |
|
my $title=&Apache::lonnet::gettitle(); |
|
if (!defined($title) || $title eq '') { |
|
$title = $ENV{'request.filename'}; |
|
$title = substr($title, rindex($title, '/') + 1); |
|
} |
|
$result = "<script type='text/javascript'>top.document.title = '$title - LON-CAPA Construction Space';</script>"; |
|
} |
|
return $result; |
|
} |
|
|
sub debug { |
sub debug { |
if ($Apache::lonxml::debug eq 1) { |
if ($Apache::lonxml::debug eq 1) { |
$|=1; |
$|=1; |