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; |