--- loncom/xml/scripttag.pm 2007/11/17 01:46:44 1.146
+++ loncom/xml/scripttag.pm 2011/12/09 22:04:55 1.158
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# ';
- }
- return ('','no');
-}
-
-sub end_LONCAPA_INTERNAL_LONHTTPD_PORT {
- return ('','no');
-}
-
sub start_script {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
@Apache::scripttag::parser_env = @_;
@@ -140,17 +116,16 @@ sub start_script {
my $function_name =
join('_','LONCAPA_scriptvars',$uname,$udom,
$env{'form.counter'},$Apache::lonxml::curdepth);
- my $script_var ="".&mt('Script Vars')."
";
- &Apache::lonxml::add_script_result($script_var);
+ my $scriptblocklog=$start_page.
+ &Apache::loncommon::start_scrollbox('500px','480px','480px').
+ '
'.&Apache::run::dump($target,$safeeval).''. + &Apache::loncommon::end_scrollbox(). + $end_page; + $scriptblocklog=~s/\'/\\'/gs; + &Apache::lonxml::add_script_result( + &Apache::loncommon::modal_adhoc_script($function_name,500,500,$scriptblocklog). + "".&mt('Script Vars')."