loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.948.2.13, 2010/11/17 20:41:53
+version 1.948.2.14, 2010/12/19 22:34:42
  Line 3562  sub format_previous_attempt_value {
  	$value = &Apache::lonlocal::locallocaltime($value);
      } elsif (ref($value) eq 'ARRAY') {
  	$value = '('.join(', ', @{ $value }).')';
+     } elsif ($key =~ /answerstring$/) {
+         my %answers = &Apache::lonnet::str2hash($value);
+         my @anskeys = sort(keys(%answers));
+         if (@anskeys == 1) {
+             my $answer = $answers{$anskeys[0]};
+             if ($answer =~ m{\Q\0\E}) {
+                 $answer =~ s{\Q\0\E}{, }g;
+             }
+             my $tag_internal_answer_name = 'INTERNAL';
+             if ($anskeys[0] eq $tag_internal_answer_name) {
+                 $value = $answer;
+             } else {
+                 $value = $anskeys[0].'='.$answer;
+             }
+         } else {
+             foreach my $ans (@anskeys) {
+                 my $answer = $answers{$ans};
+                 if ($answer =~ m{\Q\0\E}) {
+                     $answer =~ s{\Q\0\E}{, }g;
+                 }
+                 $value .=  $ans.'='.$answer.'<br />';;
+             }
+         }
      } else {
  	$value = &unescape($value);
      }