--- loncom/homework/default_homework.lcpm	2010/12/16 16:01:01	1.151
+++ loncom/homework/default_homework.lcpm	2011/02/26 17:50:13	1.152
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run()
 #
-# $Id: default_homework.lcpm,v 1.151 2010/12/16 16:01:01 raeburn Exp $
+# $Id: default_homework.lcpm,v 1.152 2011/02/26 17:50:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -364,6 +364,7 @@ sub caparesponse_check_list {
         if (ref($LONCAPA::CAPAresponse_answer->{'answers'}) eq 'ARRAY') {
             foreach my $strans (@{$LONCAPA::CAPAresponse_answer->{'answers'}}) {
                 if (ref($strans) eq 'ARRAY') {
+                    $ansstring = join("\0",@{$strans});
                     foreach my $item (@{$strans}) {  
                         if ($item =~ /[\000-\037]/) {
                             $allow_control_char = 1;
@@ -372,15 +373,6 @@ sub caparesponse_check_list {
                 }
             }
         }
-    }
-    if (($type eq 'cs') || ($type eq 'ci')) {
-        if (ref($LONCAPA::CAPAresponse_answer->{'answers'}) eq 'ARRAY') {
-            foreach my $answer (@{ $LONCAPA::CAPAresponse_answer->{'answers'} }) {
-                if (ref($answer) eq 'ARRAY') {
-                    $ansstring = join("\0",@{$answer});
-                }
-            }
-        }
     }
 
 #    &LONCAPA_INTERNAL_DEBUG(&LONCAPA_INTERNAL_Dumper($responses));