version 1.107, 2004/06/24 19:36:16
|
version 1.111, 2004/09/24 19:41:17
|
Line 229 sub PrepareClasslist {
|
Line 229 sub PrepareClasslist {
|
} |
} |
# |
# |
# Set up %StudentData |
# Set up %StudentData |
@StudentDataOrder = qw/fullname username domain id section status/; |
@StudentDataOrder = qw/fullname username domain id section status comments/; |
foreach my $field (@StudentDataOrder) { |
foreach my $field (@StudentDataOrder) { |
$StudentData{$field}->{'title'} = $field; |
$StudentData{$field}->{'title'} = &mt($field); |
$StudentData{$field}->{'base_width'} = length($field); |
$StudentData{$field}->{'base_width'} = length(&mt($field)); |
$StudentData{$field}->{'width'} = |
$StudentData{$field}->{'width'} = |
$StudentData{$field}->{'base_width'}; |
$StudentData{$field}->{'base_width'}; |
} |
} |
Line 1081 sub CreateMainMenu {
|
Line 1081 sub CreateMainMenu {
|
{ internal_name => 'student_submission_reports', |
{ internal_name => 'student_submission_reports', |
name => &mt('Student Submission Reports'), |
name => &mt('Student Submission Reports'), |
short_description => |
short_description => |
&mt('Prepare Excel spreadsheets of student submissions.'), |
&mt('Prepare reports of student submissions.'), |
}, |
}, |
{ internal_name => 'survey_reports', |
{ internal_name => 'survey_reports', |
name => &mt('Survey Reports'), |
name => &mt('Survey Reports'), |
Line 1155 sub handler {
|
Line 1155 sub handler {
|
'SelectedStudent']); |
'SelectedStudent']); |
# |
# |
# Give the LON-CAPA page header |
# Give the LON-CAPA page header |
|
my $style = <<ENDSTYLE; |
|
<style type="text/css"> |
|
ul.sub_studentans { list-style-type: none } |
|
ul.sub_correctans { list-style-type: none } |
|
tr.even { background-color: \#CCCCCC } |
|
td.essay { border: 1px solid gray; } |
|
</style> |
|
ENDSTYLE |
$r->print('<html><head><title>'. |
$r->print('<html><head><title>'. |
&mt('Course Statistics and Charts'). |
&mt('Course Statistics and Charts'). |
"</title></head>\n". |
'</title>'.$style. |
|
"</head>\n". |
&Apache::loncommon::bodytag('Course Statistics and Charts')); |
&Apache::loncommon::bodytag('Course Statistics and Charts')); |
$r->rflush(); |
$r->rflush(); |
# |
# |