version 1.37, 2005/03/14 20:28:22
|
version 1.38, 2005/03/14 22:38:29
|
Line 218 sub prepare_html_output {
|
Line 218 sub prepare_html_output {
|
my @extra_resp_headers = &get_extra_response_headers(); |
my @extra_resp_headers = &get_extra_response_headers(); |
# |
# |
# Create the table header |
# Create the table header |
my @student_columns = ('username','domain','id'); |
my @student_columns = ('username','domain','id','section'); |
# |
# |
my %headers; |
my %headers; |
my $student_column_count = scalar(@student_columns); |
my $student_column_count = scalar(@student_columns); |
Line 554 sub html_non_essay_results {
|
Line 554 sub html_non_essay_results {
|
$option = $submission{$header}; |
$option = $submission{$header}; |
} |
} |
push(@values,&HTML::Entities::encode($option)); |
push(@values,&HTML::Entities::encode($option)); |
|
} elsif ($original_header eq 'Time') { |
|
push(@values,&Apache::lonlocal::locallocaltime($response->{$original_header})); |
} else { |
} else { |
# A normal column |
# A normal column |
push(@values,$response->{$original_header}); |
push(@values,$response->{$original_header}); |
Line 646 sub prepare_excel_output {
|
Line 648 sub prepare_excel_output {
|
$worksheet->write($partid_row,0,'Part ID',$format->{'bold'}); |
$worksheet->write($partid_row,0,'Part ID',$format->{'bold'}); |
$worksheet->write($respid_row,0,'Response ID',$format->{'bold'}); |
$worksheet->write($respid_row,0,'Response ID',$format->{'bold'}); |
# Student headers |
# Student headers |
my @StudentColumns = ('username','domain','id'); |
my @StudentColumns = ('username','domain','id','section'); |
foreach (@StudentColumns) { |
foreach (@StudentColumns) { |
$worksheet->write($header_row,$cols_output++,ucfirst($_), |
$worksheet->write($header_row,$cols_output++,ucfirst($_), |
$format->{'bold'}); |
$format->{'bold'}); |
Line 890 sub prepare_csv_output {
|
Line 892 sub prepare_csv_output {
|
my @extra_resp_headers = &get_extra_response_headers(); |
my @extra_resp_headers = &get_extra_response_headers(); |
# |
# |
# Create the table header |
# Create the table header |
my @student_columns = ('username','domain','id'); |
my @student_columns = ('username','domain','id','section'); |
# |
# |
my %headers; |
my %headers; |
push(@{$headers{'student'}},@student_columns); |
push(@{$headers{'student'}},@student_columns); |