--- loncom/homework/response.pm	2006/12/11 17:37:43	1.153
+++ loncom/homework/response.pm	2006/12/11 22:02:13	1.154
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.153 2006/12/11 17:37:43 www Exp $
+# $Id: response.pm,v 1.154 2006/12/11 22:02:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -491,7 +491,13 @@ sub start_mathresponse {
 	my $args_ref= \%{$safeeval->varglob('LONCAPA::mathresponse_args')};
 	undef(%{ $args_ref });
 	$$args_ref{'cas'}=$token->[2]{'cas'};
-	$$args_ref{'args'}=$token->[2]{'args'};
+        if ($token->[2]{'args'}=~/\$/) {
+	    $$args_ref{'args'}=&Apache::run::run($token->[2]{'args'},$safeeval);
+	} elsif ($token->[2]{'args'}=~/\@/) {
+	    $$args_ref{'args'}=&Apache::run::run('join(",",'.$token->[2]{'args'}.')',$safeeval);
+	} else {
+	    $$args_ref{'args'}=$token->[2]{'args'};
+	}
     } elsif ($target eq 'meta') {
 	$result .= &Apache::response::meta_package_write('mathresponse');
     }