version 1.105, 2003/12/10 22:11:56
|
version 1.110, 2004/02/24 21:12:48
|
Line 109 sub start_script {
|
Line 109 sub start_script {
|
} elsif ( $target eq 'web' || $target eq 'tex' || |
} elsif ( $target eq 'web' || $target eq 'tex' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'analyze' ) { |
$target eq 'analyze' ) { |
my $bodytext=&Apache::lonxml::get_all_text("/script",$parser); |
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); |
if (!$Apache::lonxml::default_homework_loaded) { |
if (!$Apache::lonxml::default_homework_loaded) { |
&Apache::lonxml::default_homework_load($safeeval); |
&Apache::lonxml::default_homework_load($safeeval); |
} |
} |
Line 118 sub start_script {
|
Line 118 sub start_script {
|
($ENV{'form.answer_output_mode'} ne 'tex') && |
($ENV{'form.answer_output_mode'} ne 'tex') && |
($Apache::lonhomework::viewgrades == 'F')) { |
($Apache::lonhomework::viewgrades == 'F')) { |
$Apache::lonxml::evaluate--; |
$Apache::lonxml::evaluate--; |
$result.="<script type=\"text/javascript\"> function LONCAPA_scriptvars_$Apache::lonxml::curdepth() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.document.open('text/html','replace');newWindow.document.writeln('<html><head><title>Script Vars</title></head><body bgcolor=\"#FFFFFF\"><pre>"; |
my (undef,undef,$udom,$uname)=&Apache::lonxml::whichuser(); |
|
$result.="<script type=\"text/javascript\"> function LONCAPA_scriptvars_".$uname."_".$udom."_"."$Apache::lonxml::curdepth() {newWindow=open('','new_W','width=500,height=500,scrollbars=1,resizable=yes');newWindow.document.open('text/html','replace');newWindow.document.writeln('<html><head><title>Script Vars</title></head><body bgcolor=\"#FFFFFF\"><pre>"; |
my $listing=&Apache::run::dump($target,$safeeval); |
my $listing=&Apache::run::dump($target,$safeeval); |
$listing=~s/\'/\\\'/g; |
$listing=~s/\'/\\\'/g; |
$listing=~s/\n/\\n/g; |
$listing=~s/\n/\\n/g; |
$listing=~s/\r/\\r/g; |
$listing=~s/\r/\\r/g; |
$result.=$listing; |
$result.=$listing; |
$result.= "</pre></body></html>');newWindow.document.close();}</script><a href=\"javascript:LONCAPA_scriptvars_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />"; |
$result.= "</pre></body></html>');newWindow.document.close();}</script><a href=\"javascript:LONCAPA_scriptvars_".$uname."_".$udom."_$Apache::lonxml::curdepth();void(0);\">Script Vars</a><br />"; |
} |
} |
} elsif ($target eq "edit" ) { |
} elsif ($target eq "edit" ) { |
#&Apache::run::run($bodytext,$safeeval); |
#&Apache::run::run($bodytext,$safeeval); |
#$result="<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
#$result="<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
my $bodytext=&Apache::lonxml::get_all_text("/script",$parser); |
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); |
$result=&Apache::edit::tag_start($target,$token,'Script'); |
$result=&Apache::edit::tag_start($target,$token,'Script'); |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4); |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,4); |
|
} elsif ($target eq 'meta') { |
|
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); |
} |
} |
} else { |
} else { |
if ($target ne "meta") { |
if ($target ne "meta") { |
$result = $token->[4]; |
$result = $token->[4]; |
my $bodytext=&Apache::lonxml::get_all_text("/script",$parser); |
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/script",$parser); |
$result.=$bodytext; |
$result.=$bodytext; |
} |
} |
} |
} |
Line 169 sub start_display {
|
Line 172 sub start_display {
|
} elsif ( $target eq 'web' || $target eq 'tex' || |
} elsif ( $target eq 'web' || $target eq 'tex' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'grade' || $target eq 'answer' || |
$target eq 'analyze') { |
$target eq 'analyze') { |
my $bodytext=&Apache::lonxml::get_all_text("/display",$parser); |
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/display",$parser); |
if (!$Apache::lonxml::default_homework_loaded) { |
if (!$Apache::lonxml::default_homework_loaded) { |
&Apache::lonxml::default_homework_load($safeeval); |
&Apache::lonxml::default_homework_load($safeeval); |
} |
} |
Line 180 sub start_display {
|
Line 183 sub start_display {
|
} |
} |
$Apache::lonxml::post_evaluate=0; |
$Apache::lonxml::post_evaluate=0; |
} elsif ($target eq "edit" ) { |
} elsif ($target eq "edit" ) { |
my $bodytext=&Apache::lonxml::get_all_text("/display",$parser); |
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/display",$parser); |
#$result = |
#$result = |
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
# "<br /> <$token->[1]> output: <br />$bodytext<br />Source:<br />"; |
#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1); |
#$result.=&Apache::edit::editfield($token->[1],$bodytext,'',40,1); |
$result=&Apache::edit::tag_start($target,$token,'Script With Display'); |
$result=&Apache::edit::tag_start($target,$token,'Script With Display'); |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,1) |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'',80,1) |
|
} elsif ($target eq 'meta') { |
|
my $bodytext=&Apache::lonxml::get_all_text_unbalanced("/display",$parser); |
} |
} |
return $result; |
return $result; |
} |
} |
Line 202 sub start_scriptlib {
|
Line 207 sub start_scriptlib {
|
my $result =''; |
my $result =''; |
my $error=''; |
my $error=''; |
|
|
if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || |
if ($target eq 'web' || $target eq 'tex' || $target eq 'grade' || |
$target eq 'edit' || $target eq 'answer' || $target eq 'analyze') { |
$target eq 'meta' || $target eq 'edit' || $target eq 'answer' || |
|
$target eq 'analyze') { |
$bodytext=$$parser[$#$parser]->get_text("/scriptlib"); |
$bodytext=$$parser[$#$parser]->get_text("/scriptlib"); |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$$parstack[$#$parstack]); |
$$parstack[$#$parstack]); |
Line 247 sub start_parserlib {
|
Line 253 sub start_parserlib {
|
my $bodytext; |
my $bodytext; |
my $result =""; |
my $result =""; |
my $error=''; |
my $error=''; |
if ($target eq 'web' || $target eq 'grade' || $target eq 'meta' || |
if ($target eq 'web' || $target eq 'tex' || $target eq 'grade' || |
$target eq 'edit' || $target eq 'answer' || $target eq 'analyze') { |
$target eq 'meta' || $target eq 'edit' || $target eq 'answer' || |
|
$target eq 'analyze') { |
$bodytext=$$parser[$#$parser]->get_text("/parserlib"); |
$bodytext=$$parser[$#$parser]->get_text("/parserlib"); |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$bodytext=&Apache::run::evaluate($bodytext,$safeeval, |
$$parstack[$#$parstack]); |
$$parstack[$#$parstack]); |