--- loncom/xml/scripttag.pm	2003/06/18 21:04:42	1.99
+++ loncom/xml/scripttag.pm	2003/10/03 17:15:01	1.101
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # <script> definiton
 #
-# $Id: scripttag.pm,v 1.99 2003/06/18 21:04:42 albertel Exp $
+# $Id: scripttag.pm,v 1.101 2003/10/03 17:15:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -45,6 +45,7 @@ BEGIN {
 			     'window','display','storetc','physnet',
 			     'standalone','comment',
 			     'LONCAPA_INTERNAL_TURN_STYLE_ON',
+			     'LONCAPA_INTERNAL_TURN_STYLE_OFF',
 			     'LONCAPA_INTERNAL_LONHTTPD_PORT'));
 }
 
@@ -63,6 +64,24 @@ sub end_LONCAPA_INTERNAL_TURN_STYLE_ON {
     return ('','no');
 }
 
+sub start_LONCAPA_INTERNAL_TURN_STYLE_OFF {
+    my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+    $Apache::lonxml::usestyle=0;
+    my $end=&Apache::lonxml::get_param('end',$parstack,$safeeval);
+    if (!$end) {
+	$Apache::lonxml::style_values=$$parstack[-1];
+	$Apache::lonxml::style_end_values=$$parstack[-1];
+    } else {
+	$Apache::lonxml::style_values=$Apache::lonxml::style_end_values;
+	$Apache::lonxml::style_end_values='';
+    }
+    return ('','no');
+}
+
+sub end_LONCAPA_INTERNAL_TURN_STYLE_OFF {
+    return ('','no');
+}
+
 sub start_LONCAPA_INTERNAL_LONHTTPD_PORT {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     if ($target eq 'web') {
@@ -158,6 +177,7 @@ sub start_display {
 	  $target eq 'analyze') {
 	  $result=''; # grade should produce no output
       }
+      $Apache::lonxml::post_evaluate=0;
   } elsif ($target eq "edit" ) {
     #$result = 
     #  "<br /> &lt;$token->[1]&gt; output: <br />$bodytext<br />Source:<br />";