loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1000, 2011/02/07 18:12:35	version 1.1001, 2011/02/26 12:54:52
Line 3564 sub format_previous_attempt_value {	Line 3564 sub format_previous_attempt_value {
my @anskeys = sort(keys(%answers));	my @anskeys = sort(keys(%answers));
if (@anskeys == 1) {	if (@anskeys == 1) {
my $answer = $answers{$anskeys[0]};	my $answer = $answers{$anskeys[0]};
if ($answer =~ m{\Q\0\E}) {	if ($answer =~ m{\0}) {
$answer =~ s{\Q\0\E}{, }g;	$answer =~ s{\0}{,}g;
}	}
my $tag_internal_answer_name = 'INTERNAL';	my $tag_internal_answer_name = 'INTERNAL';
if ($anskeys[0] eq $tag_internal_answer_name) {	if ($anskeys[0] eq $tag_internal_answer_name) {
Line 3576 sub format_previous_attempt_value {	Line 3576 sub format_previous_attempt_value {
} else {	} else {
foreach my $ans (@anskeys) {	foreach my $ans (@anskeys) {
my $answer = $answers{$ans};	my $answer = $answers{$ans};
if ($answer =~ m{\Q\0\E}) {	if ($answer =~ m{\0}) {
$answer =~ s{\Q\0\E}{, }g;	$answer =~ s{\0}{,}g;
}	}
$value .= $ans.'='.$answer.'<br />';;	$value .= $ans.'='.$answer.'<br />';;
}	}