version 1.249, 2003/05/01 15:49:26
|
version 1.254, 2003/05/16 20:51:25
|
Line 561 sub inner_xmlparse {
|
Line 561 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') ) { |
#Style file definitions should be correct |
#Style file definitions should be correct |
if ($target eq 'tex' && ($Apache::lonxml::usestyle) { |
if ($target eq 'tex' && ($Apache::lonxml::usestyle)) { |
$result=&latex_special_symbols($result,$stack,$parstack); |
$result=&latex_special_symbols($result,$stack,$parstack); |
} |
} |
} |
} |
Line 722 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 1128 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 1145 $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 1251 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; |