--- loncom/xml/lonxml.pm 2007/09/10 19:46:57 1.456 +++ loncom/xml/lonxml.pm 2007/09/11 20:36:18 1.458 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.456 2007/09/10 19:46:57 albertel Exp $ +# $Id: lonxml.pm,v 1.458 2007/09/11 20:36:18 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -800,6 +800,7 @@ sub init_safespace { $safehole->wrap(\&Math::Random::random_set_seed_from_phrase,$safeeval,'&random_set_seed_from_phrase'); $safehole->wrap(\&Math::Random::random_get_seed,$safeeval,'&random_get_seed'); $safehole->wrap(\&Math::Random::random_set_seed,$safeeval,'&random_set_seed'); + $safehole->wrap(\&Apache::loncommon::languages,$safeeval,'&languages'); $safehole->wrap(\&Apache::lonxml::error,$safeeval,'&LONCAPA_INTERNAL_ERROR'); $safehole->wrap(\&Apache::lonxml::debug,$safeeval,'&LONCAPA_INTERNAL_DEBUG'); $safehole->wrap(\&Apache::lonnet::logthis,$safeeval,'&LONCAPA_INTERNAL_LOGTHIS'); @@ -1543,10 +1544,13 @@ ENDNOTFOUND ['rawmode']); if ($env{'form.rawmode'}) { $result = $filecontents; } if ($filetype eq 'sty') { + my $controls = + ($env{'request.state'} eq 'construct') ? &Apache::londefdef::edit_controls() + : ''; my %options = ('bgcolor' => '#FFFFFF'); $result = &Apache::loncommon::start_page(undef,undef,\%options). - &Apache::londefdef::edit_controls(). + $controls. $result. &Apache::loncommon::end_page(); }