loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.52, 2003/06/05 19:21:22	version 1.53, 2003/06/07 14:45:41
Line 1089 sub csv_initialize{	Line 1089 sub csv_initialize{
$Str .= '"",'; # first row empty on the student fields	$Str .= '"",'; # first row empty on the student fields
$Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';	$Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';
} elsif ($show eq 'all') {	} elsif ($show eq 'all') {
$Str .= '"'.&Apache::loncommon::csv_translate($field).'",';	$Str .= '"",';
	$Str2 .= '"'.&Apache::loncommon::csv_translate($field).'",';
}	}
}	}
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {	foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) {
Line 1103 sub csv_initialize{	Line 1104 sub csv_initialize{
} elsif ($show eq 'all') {	} elsif ($show eq 'all') {
$Str .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).	$Str .= '"'.&Apache::loncommon::csv_translate($seq->{'title'}).
'",';	'",';
$Str .= '"",'x($seq->{'num_assess_parts'}-1);	$Str .= '"",'x($seq->{'num_assess_parts'}-1+2);
$Str .= '"score","total possible",';	foreach my $res (@{$seq->{'contents'}}) {
	foreach my $part (@{$res->{'parts'}}) {
	$Str2 .= '"'.&Apache::loncommon::csv_translate($res->{'title'}.', Part '.$part).'",';
	}
	}
	$Str2 .= '"score","total possible",';
}	}
}	}
chop($Str);	chop($Str);