loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.167, 2014/06/25 10:48:39
+version 1.168, 2014/06/25 15:43:04
  Line 1233  sub submission {
     if ($subnumber) { $sub=$subnumber.':'; }
     my $output =
         &EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission');
-    if ($encode) {
+    if (ref($output) eq 'ARRAY') {
-        $output =~ s/&/&amp;/g;
+        my @items = @{$output};
-        $output =~ s/</&lt;/g;
+        if ($encode) {
-        $output =~ s/>/&gt;/g;
+            @items = map { &encode_response($_); } @items;
-        $output =~ s/"/&quot;/g;
+        }
+        return \@items;
+    } else {
+        if ($encode) {
+            $output = &encode_response($output);
+        }
+        return $output;
     }
-    return $output;
+ }
+ sub encode_response {
+     my ($value) = @_;
+     $value =~ s/&/&amp;/g;
+     $value =~ s/</&lt;/g;
+     $value =~ s/>/&gt;/g;
+     $value =~ s/"/&quot;/g;
+     return $value;
  }
  sub currentpart {