[LON-CAPA-cvs] cvs: loncom /homework lonmaxima.pm response.pm

www lon-capa-cvs@mail.lon-capa.org
Fri, 15 Dec 2006 21:10:13 -0000


www		Fri Dec 15 16:10:13 2006 EDT

  Modified files:              
    /loncom/homework	lonmaxima.pm response.pm 
  Log:
  More elegant
  
  
Index: loncom/homework/lonmaxima.pm
diff -u loncom/homework/lonmaxima.pm:1.7 loncom/homework/lonmaxima.pm:1.8
--- loncom/homework/lonmaxima.pm:1.7	Mon Dec 11 17:02:13 2006
+++ loncom/homework/lonmaxima.pm	Fri Dec 15 16:10:13 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Interface routines to MAXIMA CAS
 #
-# $Id: lonmaxima.pm,v 1.7 2006/12/11 22:02:13 www Exp $
+# $Id: lonmaxima.pm,v 1.8 2006/12/15 21:10:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -88,7 +88,7 @@
 	$submission_index++;
     }
     my $argument_index=1;
-    foreach my $argument_component (split(/\s*\,\s*/,$argument)) {
+    foreach my $argument_component (@{$argument}) {
 	$fullscript.="LONCAPALIST[$argument_index]:$argument_component;\n";
 	$argument_index++;
     }
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.154 loncom/homework/response.pm:1.155
--- loncom/homework/response.pm:1.154	Mon Dec 11 17:02:13 2006
+++ loncom/homework/response.pm	Fri Dec 15 16:10:13 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.154 2006/12/11 22:02:13 www Exp $
+# $Id: response.pm,v 1.155 2006/12/15 21:10:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -488,16 +488,6 @@
 	}
     } elsif ($target eq 'answer' || $target eq 'grade') {
 	&Apache::response::reset_params();
-	my $args_ref= \%{$safeeval->varglob('LONCAPA::mathresponse_args')};
-	undef(%{ $args_ref });
-	$$args_ref{'cas'}=$token->[2]{'cas'};
-        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');
     }
@@ -520,11 +510,12 @@
 	    $Apache::lonhomework::results{"resource.$part.$id.submission"}=
 		$response;
 	    my $error;
-	    my $args_ref= \%{$safeeval->varglob('LONCAPA::mathresponse_args')};
-            my $award;
-            if ($$args_ref{'cas'} eq 'maxima') {
-		$award=&Apache::lonmaxima::maxima_run($Apache::response::custom_answer,$response,$$args_ref{'args'});
-	    }
+	    my $award;
+	    my $cas = &Apache::lonxml::get_param('cas',$parstack,$safeeval);
+            if ($cas eq 'maxima') {
+                my $args = [&Apache::lonxml::get_param_var('args',$parstack,$safeeval)];
+                $award=&Apache::lonmaxima::maxima_run($Apache::response::custom_answer,$response,$args);
+            }
 	    if (!&Apache::inputtags::valid_award($award)) {
 		$error = $award;
 		$award = 'ERROR';