loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.159, 2010/01/14 17:20:51	version 1.161, 2010/04/14 06:57:17
Line 554 my @OutputDataOptions =	Line 554 my @OutputDataOptions =

sub HTMLifyOutputDataDescriptions {	sub HTMLifyOutputDataDescriptions {
my $Str = '';	my $Str = '';
$Str .= "<h2>'.&mt('Output Data').'</h2>\n";	$Str .= '<h2>'.&mt('Output Data').'</h2>'."\n";
$Str .= "<dl>\n";	$Str .= "<dl>\n";
foreach my $option (@OutputDataOptions) {	foreach my $option (@OutputDataOptions) {
$Str .= ' <dt>'.$option->{'name'}.'</dt>';	$Str .= ' <dt>'.$option->{'name'}.'</dt>';
Line 1679 END	Line 1679 END
# Datestamp	# Datestamp
my $description = $env{'course.'.$env{'request.course.id'}.'.description'};	my $description = $env{'course.'.$env{'request.course.id'}.'.description'};
print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'.	print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'.
'"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'.	'"'.&Apache::loncommon::csv_translate(scalar(&Apache::lonlocal::locallocaltime(time))).'"'.
"\n";	"\n";
print $outputfile '"'.	print $outputfile '"'.
&Apache::loncommon::csv_translate	&Apache::loncommon::csv_translate