version 1.158, 2011/12/09 22:04:55
|
version 1.159, 2011/12/10 18:11:05
|
Line 102 sub start_script {
|
Line 102 sub start_script {
|
($Apache::lonhomework::viewgrades == 'F')) { |
($Apache::lonhomework::viewgrades == 'F')) { |
$Apache::lonxml::evaluate--; |
$Apache::lonxml::evaluate--; |
my (undef,undef,$udom,$uname)=&Apache::lonnet::whichuser(); |
my (undef,undef,$udom,$uname)=&Apache::lonnet::whichuser(); |
my $windowopen=&Apache::lonhtmlcommon::javascript_docopen(); |
|
my $start_page = |
|
&Apache::loncommon::start_page('Script Vars', undef, |
|
{'only_body' => 1, |
|
'bgcolor' => '#FFFFFF', |
|
'js_ready' => 1,}); |
|
my $end_page = |
|
&Apache::loncommon::end_page({'js_ready' => 1,}); |
|
|
|
$uname =~s/\W//g; |
$uname =~s/\W//g; |
$udom =~s/\W//g; |
$udom =~s/\W//g; |
my $function_name = |
my $function_name = |
join('_','LONCAPA_scriptvars',$uname,$udom, |
join('_','LONCAPA_scriptvars',$uname,$udom, |
$env{'form.counter'},$Apache::lonxml::curdepth); |
$env{'form.counter'},$Apache::lonxml::curdepth); |
my $scriptblocklog=$start_page. |
|
&Apache::loncommon::start_scrollbox('500px','480px','480px'). |
|
'<pre>'.&Apache::run::dump($target,$safeeval).'</pre>'. |
|
&Apache::loncommon::end_scrollbox(). |
|
$end_page; |
|
$scriptblocklog=~s/\'/\\'/gs; |
|
&Apache::lonxml::add_script_result( |
&Apache::lonxml::add_script_result( |
&Apache::loncommon::modal_adhoc_script($function_name,500,500,$scriptblocklog). |
&Apache::loncommon::modal_adhoc_window($function_name,500,500, |
"<a href=\"javascript:$function_name();void(0);\">".&mt('Script Vars')."</a><br />" |
'<pre>'.&Apache::run::dump($target,$safeeval).'</pre>', |
); |
&mt('Script Vars'))."<br />"); |
} |
} |
} elsif ($target eq "edit" ) { |
} elsif ($target eq "edit" ) { |
#&Apache::run::run($bodytext,$safeeval); |
#&Apache::run::run($bodytext,$safeeval); |