--- loncom/interface/statistics/lonstudentsubmissions.pm 2005/03/14 20:28:22 1.37 +++ loncom/interface/statistics/lonstudentsubmissions.pm 2005/03/17 18:50:06 1.39 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonstudentsubmissions.pm,v 1.37 2005/03/14 20:28:22 matthew Exp $ +# $Id: lonstudentsubmissions.pm,v 1.39 2005/03/17 18:50:06 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -218,7 +218,7 @@ sub prepare_html_output { my @extra_resp_headers = &get_extra_response_headers(); # # Create the table header - my @student_columns = ('username','domain','id'); + my @student_columns = ('username','domain','id','section'); # my %headers; my $student_column_count = scalar(@student_columns); @@ -554,6 +554,8 @@ sub html_non_essay_results { $option = $submission{$header}; } push(@values,&HTML::Entities::encode($option)); + } elsif ($original_header eq 'Time') { + push(@values,&Apache::lonlocal::locallocaltime($response->{$original_header})); } else { # A normal column push(@values,$response->{$original_header}); @@ -646,7 +648,7 @@ sub prepare_excel_output { $worksheet->write($partid_row,0,'Part ID',$format->{'bold'}); $worksheet->write($respid_row,0,'Response ID',$format->{'bold'}); # Student headers - my @StudentColumns = ('username','domain','id'); + my @StudentColumns = ('username','domain','id','section'); foreach (@StudentColumns) { $worksheet->write($header_row,$cols_output++,ucfirst($_), $format->{'bold'}); @@ -890,7 +892,7 @@ sub prepare_csv_output { my @extra_resp_headers = &get_extra_response_headers(); # # Create the table header - my @student_columns = ('username','domain','id'); + my @student_columns = ('username','domain','id','section'); # my %headers; push(@{$headers{'student'}},@student_columns); @@ -1084,7 +1086,7 @@ sub CreateInterface { } $prob_status_checkbox .= 'value="true" />'; # - $Str .= ''. + $Str .= ''. '
'. '