loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.37, 2003/03/06 22:45:04	version 1.38, 2003/03/07 15:18:39
Line 452 sub html_initialize {	Line 452 sub html_initialize {
$padding = ' 'x3;	$padding = ' 'x3;
$count = 0;	$count = 0;
#	#
	$r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
	"  ".localtime(time)."</h3>");
my $Str = "<pre>\n";	my $Str = "<pre>\n";
# First, the @StudentData fields need to be listed	# First, the @StudentData fields need to be listed
my @to_show = &get_student_fields_to_show();	my @to_show = &get_student_fields_to_show();
Line 876 sub csv_initialize{	Line 878 sub csv_initialize{
$outputfile = undef;	$outputfile = undef;
}	}
#	#
	# Datestamp
	my $description = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
	print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'.
	'"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'.
	"\n";

	#
# Print out the headings	# Print out the headings
my $Str = '';	my $Str = '';
my $Str2 = undef;	my $Str2 = undef;