loncom/interface/lontrackstudent.pm - diff

Return to lontrackstudent.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2010/05/03 16:41:51	version 1.32, 2010/06/06 21:34:23
Line 433 sub display_values {	Line 433 sub display_values {
my ($action,$values)=@_;	my ($action,$values)=@_;
my $result='<table>';	my $result='<table>';
if ($action eq 'CSTORE') {	if ($action eq 'CSTORE') {
	my $is_anon;
my %values=map {split('=',$_,-1)} split(/\&/,$values);	my %values=map {split('=',$_,-1)} split(/\&/,$values);
foreach my $key (sort(keys(%values))) {	foreach my $key (sort(keys(%values))) {
	my $unesc_key = &unescape($key);
	if ($values{$key} eq 'anonsurvey' \|\| $values{$key} eq 'anonsurveycred') {
	if ($unesc_key =~ /^resource\..+\.type$/) {
	$is_anon = 1;
	last;
	}
	}
$result.='<tr><td align="right">'.	$result.='<tr><td align="right">'.
&unescape($key).	$unesc_key.
'</td><td>=</td><td align="left">'.	'</td><td>=</td><td align="left">'.
&unescape($values{$key}).'</td></tr>';	&unescape($values{$key}).'</td></tr>';
}	}
$result.='</table>';	$result.='</table>';
	if ($is_anon) {
	$result = '<span class="LC_warning">'.&mt('Anonymous Survey Submission: details not shown').'</span>';
	}
} elsif ($action eq 'POST') {	} elsif ($action eq 'POST') {
my %values;	my %values;
foreach my $pair (split(/\&/,$values)) {	foreach my $pair (split(/\&/,$values)) {