--- loncom/homework/chemresponse.pm	2005/02/18 05:37:42	1.47
+++ loncom/homework/chemresponse.pm	2005/02/18 23:12:29	1.48
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # chemical equation style response
 #
-# $Id: chemresponse.pm,v 1.47 2005/02/18 05:37:42 albertel Exp $
+# $Id: chemresponse.pm,v 1.48 2005/02/18 23:12:29 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -438,8 +438,14 @@ sub end_reactionresponse {
 sub start_chem {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
     my $result = '';
+    my $inside = &Apache::lonxml::get_all_text_unbalanced("/chem",$parser);
     if ($target eq 'tex' || $target eq 'web') {
-	&Apache::lonxml::startredirection();
+	$inside=&Apache::run::evaluate($inside,$safeeval,$$parstack[-1]);
+	if (!$Apache::lonxml::default_homework_loaded) {
+	    &Apache::lonxml::default_homework_load($safeeval);
+	}
+	@Apache::scripttag::parser_env = @_;
+	$result=&Apache::run::run("return &chemparse(q\0$inside\0);",$safeeval);
     }    
     return $result;
 }
@@ -447,14 +453,6 @@ sub start_chem {
 sub end_chem {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style) = @_;
     my $result = '';
-    if ($target eq 'tex' || $target eq 'web') {
-	@Apache::scripttag::parser_env = @_;
-	if (!$Apache::lonxml::default_homework_loaded) {
-	    &Apache::lonxml::default_homework_load($safeeval);
-	}
-	my $innards=&Apache::lonxml::endredirection();
-	$result=&Apache::run::run("return &chemparse(q\0$innards\0);",$safeeval);
-    }
     return $result;
 }