version 1.321, 2004/06/04 14:03:57
|
version 1.323, 2004/06/05 14:46:12
|
Line 736 sub init_safespace {
|
Line 736 sub init_safespace {
|
$safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed'); |
$safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed'); |
$safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR'); |
$safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR'); |
$safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&LONCAPA_INTERNAL_DEBUG'); |
$safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&LONCAPA_INTERNAL_DEBUG'); |
|
$safehole->wrap(\&Apache::caparesponse::get_sigrange,$safeeval,'&LONCAPA_INTERNAL_get_sigrange'); |
|
|
#need to inspect this class of ops |
#need to inspect this class of ops |
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
Line 1128 sub inserteditinfo {
|
Line 1129 sub inserteditinfo {
|
$filecontents = &HTML::Entities::encode($filecontents,'<>&"'); |
$filecontents = &HTML::Entities::encode($filecontents,'<>&"'); |
# my $editheader='<a href="#editsection">Edit below</a><hr />'; |
# my $editheader='<a href="#editsection">Edit below</a><hr />'; |
my $xml_help = ''; |
my $xml_help = ''; |
my $activate=''; |
|
my $initialize=''; |
my $initialize=''; |
if ($filetype eq 'html') { |
if ($filetype eq 'html') { |
|
my $addbuttons=&Apache::lonhtmlcommon::htmlareaaddbuttons(); |
$initialize=&Apache::lonhtmlcommon::htmlareaheaders().(<<FULLPAGE); |
$initialize=&Apache::lonhtmlcommon::htmlareaheaders().(<<FULLPAGE); |
<script type="text/javascript"> |
<script type="text/javascript"> |
|
$addbuttons |
|
|
HTMLArea.loadPlugin("FullPage"); |
HTMLArea.loadPlugin("FullPage"); |
|
|
function initDocument() { |
function initDocument() { |
var editor=new HTMLArea("editor"); |
var editor=new HTMLArea("filecont",config); |
editor.registerPlugin(FullPage); |
editor.registerPlugin(FullPage); |
editor.generate(); |
editor.generate(); |
} |
} |
Line 1144 sub inserteditinfo {
|
Line 1147 sub inserteditinfo {
|
FULLPAGE |
FULLPAGE |
$result=~s/\<body([^\>]*)\>/\<body onload="initDocument()" $1\>/i; |
$result=~s/\<body([^\>]*)\>/\<body onload="initDocument()" $1\>/i; |
$xml_help=&Apache::loncommon::helpLatexCheatsheet(); |
$xml_help=&Apache::loncommon::helpLatexCheatsheet(); |
#FIXME: need to install FullPage plugin during install |
|
# $activate=&Apache::lonhtmlcommon::htmlareaactive(); |
|
} |
} |
my $cleanbut = ''; |
my $cleanbut = ''; |
if ($filetype eq 'html') { |
if ($filetype eq 'html') { |
Line 1174 $buttons<br />
|
Line 1175 $buttons<br />
|
<br /> |
<br /> |
</form> |
</form> |
$titledisplay |
$titledisplay |
$activate |
|
</body> |
</body> |
ENDFOOTER |
ENDFOOTER |
# $result=~s/(\<body[^\>]*\>)/$1$editheader/is; |
# $result=~s/(\<body[^\>]*\>)/$1$editheader/is; |