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

[raeburn]

raeburn		Tue Nov 29 17:43:30 2011 EDT

  Modified files:              
    /loncom/homework	response.pm 
  Log:
  Displaying previous tries for customresponse.
    - Actually use &format_prior_response_custom().
    - Check if submission is an array (e.g., custompartial.problem template). 
  
  
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.228 loncom/homework/response.pm:1.229
--- loncom/homework/response.pm:1.228	Tue Nov 29 13:24:38 2011
+++ loncom/homework/response.pm	Tue Nov 29 17:43:30 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.228 2011/11/29 13:24:38 raeburn Exp $
+# $Id: response.pm,v 1.229 2011/11/29 17:43:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -491,7 +491,7 @@
 	$result .= &Apache::response::answer_footer('customresponse');
     }
     if ($target eq 'web') {
-	&setup_prior_tries_hash(\&format_prior_response_math);
+	&setup_prior_tries_hash(\&format_prior_response_custom);
     }
     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || 
 	$target eq 'tex' || $target eq 'analyze') {
@@ -512,6 +512,9 @@
 
 sub format_prior_response_custom {
     my ($mode,$answer) =@_;
+    if (ref($answer) eq 'ARRAY') {
+        $answer = '('.join(', ', @{ $answer }).')';
+    }
     return '<span class="LC_prior_custom">'.
 	    &HTML::Entities::encode($answer,'"<>&').'</span>';
 }