--- loncom/xml/scripttag.pm 2001/10/13 06:00:04 1.54 +++ loncom/xml/scripttag.pm 2001/10/14 05:08:09 1.55 @@ -34,13 +34,13 @@ sub start_script { } elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' || $target eq 'answer') { &Apache::run::run($bodytext,$safeeval); - if (($ENV{'request.state'} eq 'construct') && ($target eq 'web')) { + if (($ENV{'request.state'} eq 'construct') && ($target eq 'answer')) { $Apache::lonxml::evaluate--; $result.="newwindow
";
 	my $listing= &Apache::run::dump($target,$safeeval);
 	$listing =~ s/\n/\\n/g;
 	$result.=$listing;
-	$result.= "
\');newWindow.document.close();void(0);\">Script Vars
"; + $result.= "\');newWindow.document.close();void(0);\">Script Vars
"; } } elsif ($target eq "edit" ) { #&Apache::run::run($bodytext,$safeeval); @@ -64,7 +64,7 @@ sub end_script { return $token->[2]; } elsif ($target eq 'edit' ) { return &Apache::edit::end_table(); - } elsif (($ENV{'request.state'} eq 'construct') && ($target eq 'web')) { + } elsif (($ENV{'request.state'} eq 'construct') && ($target eq 'answer')) { $Apache::lonxml::evaluate++; } return ''; @@ -81,7 +81,7 @@ sub start_display { } elsif ( $target eq 'web' || $target eq 'tex' || $target eq 'grade' || $target eq 'answer') { $result=&Apache::run::run($bodytext,$safeeval); - if ($target eq 'grade' ) { + if ($target eq 'grade' || $target eq 'answer' ) { $result=''; # grade should produce no output } } elsif ($target eq "edit" ) {