loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.9, 2004/03/16 16:41:26	version 1.10, 2004/03/31 05:24:00
Line 478 sub get_answer {	Line 478 sub get_answer {
}	}
foreach my $foil (@{$Answer{$prefix.'.shown'}}) {	foreach my $foil (@{$Answer{$prefix.'.shown'}}) {
if (ref($values{$foil}) eq 'ARRAY') {	if (ref($values{$foil}) eq 'ARRAY') {
$returnvalue.=&HTML::Entities::encode($foil).'='.	$returnvalue.=&HTML::Entities::encode($foil,'<>&"').'='.
join(',',map {&HTML::Entities::encode($_)} @{$values{$foil}}).'&';	join(',',map {&HTML::Entities::encode($_,'<>&"')} @{$values{$foil}}).'&';
} else {	} else {
$returnvalue.=&HTML::Entities::encode($foil).'='.	$returnvalue.=&HTML::Entities::encode($foil,'<>&"').'='.
&HTML::Entities::encode($values{$foil}).'&';	&HTML::Entities::encode($values{$foil},'<>&"').'&';
}	}
}	}
$returnvalue =~ s/ /\%20/g;	$returnvalue =~ s/ /\%20/g;