version 1.42, 2003/03/12 20:53:53
|
version 1.48, 2003/05/21 14:43:01
|
Line 137 sub BuildStudentAssessmentPage {
|
Line 137 sub BuildStudentAssessmentPage {
|
if (! exists($ENV{'form.notfirstrun'})) { |
if (! exists($ENV{'form.notfirstrun'})) { |
$r->print(<<ENDMSG); |
$r->print(<<ENDMSG); |
<p> |
<p> |
<font size="+1"> |
<font size="+2"> |
Please make your selections in the boxes above and hit |
Please make your selections in the boxes above and hit |
the button marked "Update Display". |
the button marked "Update Display". |
</font> |
</font> |
Line 156 ENDMSG
|
Line 156 ENDMSG
|
$initialize = \&excel_initialize; |
$initialize = \&excel_initialize; |
$output_student = \&excel_outputstudent; |
$output_student = \&excel_outputstudent; |
$finish = \&excel_finish; |
$finish = \&excel_finish; |
} elsif ($output_mode eq 'multi-sheet excel') { |
# } elsif ($output_mode eq 'multi-sheet excel') { |
$initialize = \&multi_sheet_excel_initialize; |
# $initialize = \&multi_sheet_excel_initialize; |
$output_student = \&multi_sheet_excel_outputstudent; |
# $output_student = \&multi_sheet_excel_outputstudent; |
$finish = \&multi_sheet_excel_finish; |
# $finish = \&multi_sheet_excel_finish; |
} elsif ($output_mode eq 'csv') { |
} elsif ($output_mode eq 'csv') { |
$initialize = \&csv_initialize; |
$initialize = \&csv_initialize; |
$output_student = \&csv_outputstudent; |
$output_student = \&csv_outputstudent; |
Line 224 sub CreateInterface {
|
Line 224 sub CreateInterface {
|
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>Sections</b></td>'; |
$Str .= '<td align="center"><b>Sections</b></td>'; |
$Str .= '<td align="center"><b>Student Data</b></td>'; |
$Str .= '<td align="center"><b>Student Data</b></td>'; |
|
$Str .= '<td align="center"><b>Enrollment Status</b></td>'; |
$Str .= '<td align="center"><b>Sequences and Folders</b></td>'; |
$Str .= '<td align="center"><b>Sequences and Folders</b></td>'; |
$Str .= '<td align="center"><b>Output Format</b></td>'; |
$Str .= '<td align="center"><b>Output Format</b></td>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
Line 242 sub CreateInterface {
|
Line 243 sub CreateInterface {
|
$Str .= &Apache::lonstatistics::StudentDataSelect('StudentData','multiple', |
$Str .= &Apache::lonstatistics::StudentDataSelect('StudentData','multiple', |
5,undef); |
5,undef); |
$Str .= '</td><td>'."\n"; |
$Str .= '</td><td>'."\n"; |
|
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
|
$Str .= '</td><td>'."\n"; |
$Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5, |
$Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5, |
$only_seq_with_assessments); |
$only_seq_with_assessments); |
$Str .= '</td><td>'."\n"; |
$Str .= '</td><td>'."\n"; |
Line 271 my @OutputOptions =
|
Line 274 my @OutputOptions =
|
show => 'all', |
show => 'all', |
show_links => 'yes', |
show_links => 'yes', |
}, |
}, |
|
{ name => 'HTML, with all links', |
|
value => 'html, with all links', |
|
description => 'Output HTML with each symbol linked to the problem '. |
|
'which generated it. '. |
|
'This includes links for unattempted problems.', |
|
mode => 'html', |
|
show => 'all', |
|
show_links => 'all', |
|
}, |
{ name => 'HTML, without links', |
{ name => 'HTML, without links', |
value => 'html, without links', |
value => 'html, without links', |
description => 'Output HTML. By not including links, the size of the'. |
description => 'Output HTML. By not including links, the size of the'. |
Line 323 my @OutputOptions =
|
Line 335 my @OutputOptions =
|
show => 'totals', |
show => 'totals', |
show_links => 'no', |
show_links => 'no', |
}, |
}, |
{ name => 'multi-sheet Excel', |
# { name => 'multi-sheet Excel', |
value => 'multi-sheet excel', |
# value => 'multi-sheet excel', |
description => 'Output an Excel file (compatable with Excel 95), '. |
# description => 'Output an Excel file (compatable with Excel 95), '. |
'with a seperate worksheet for each sequence you have selected '. |
# 'with a seperate worksheet for each sequence you have selected '. |
'the data for each problem part '. |
# 'the data for each problem part '. |
'(number of tries, status, points awarded) will be listed.', |
# '(number of tries, status, points awarded) will be listed.', |
mode => 'multi-sheet excel', |
# mode => 'multi-sheet excel', |
show => 'totals', |
# show => 'totals', |
show_links => 'no', |
# show_links => 'no', |
}, |
# }, |
{ name => 'multi-sheet Excel, by section', |
# { name => 'multi-sheet Excel, by section', |
value => 'multi-sheet excel, by section', |
# value => 'multi-sheet excel, by section', |
description => 'Output an Excel file (compatable with Excel 95), '. |
# description => 'Output an Excel file (compatable with Excel 95), '. |
'with a seperate worksheet for each sequence you have selected '. |
# 'with a seperate worksheet for each sequence you have selected '. |
'the data for each problem part '. |
# 'the data for each problem part '. |
'(number of tries, status, points awarded) will be listed. '. |
# '(number of tries, status, points awarded) will be listed. '. |
'There will be one Excel workbook for each section selected.', |
# 'There will be one Excel workbook for each section selected.', |
mode => 'multi-sheet excel', |
# mode => 'multi-sheet excel', |
show => 'by section', |
# show => 'by section', |
show_links => 'no', |
# show_links => 'no', |
}, |
# }, |
{ name => 'CSV, everything', |
{ name => 'CSV, everything', |
value => 'csv, everything', |
value => 'csv, everything', |
description => '', |
description => '', |
Line 381 sub OutputDescriptions {
|
Line 393 sub OutputDescriptions {
|
|
|
sub CreateAndParseOutputSelector { |
sub CreateAndParseOutputSelector { |
my $Str = ''; |
my $Str = ''; |
my $elementname = 'outputmode'; |
my $elementname = 'chartoutputmode'; |
# |
# |
# Format for output options is 'mode, restrictions'; |
# Format for output options is 'mode, restrictions'; |
my $selected = 'html, with links'; |
my $selected = 'html, with links'; |
Line 822 sub excel_initialize {
|
Line 834 sub excel_initialize {
|
$rows_output += 1; |
$rows_output += 1; |
} |
} |
# |
# |
|
# Output a row for MAX |
|
if ($show ne 'totals') { |
|
$cols_output = 0; |
|
foreach my $field (&get_student_fields_to_show()) { |
|
if ($field eq 'username' || $field eq 'fullname' || |
|
$field eq 'id') { |
|
$excel_sheet->write($rows_output,$cols_output++,'Maximum'); |
|
} else { |
|
$excel_sheet->write($rows_output,$cols_output++,''); |
|
} |
|
} |
|
# |
|
# Add the Sequence Headers |
|
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
|
$excel_sheet->write($rows_output,$cols_output++, |
|
$seq->{'num_assess_parts'}); |
|
} |
|
$rows_output++; |
|
} |
|
# |
# Let the user know what we are doing |
# Let the user know what we are doing |
my $studentcount = scalar(@Apache::lonstatistics::Students); |
my $studentcount = scalar(@Apache::lonstatistics::Students); |
$r->print("<h1>Compiling Excel spreadsheet for ". |
$r->print("<h1>Compiling Excel spreadsheet for ". |
Line 1126 sub StudentPerformanceOnSequence {
|
Line 1158 sub StudentPerformanceOnSequence {
|
$symbol = ' '; |
$symbol = ' '; |
} |
} |
$sum++; |
$sum++; |
|
} elsif (exists($resource_data->{'resource.'. |
|
$partnum.'.tries'})){ |
|
$symbol = '.'; |
} else { |
} else { |
$symbol = ' '; |
$symbol = ' '; |
} |
} |
Line 1138 sub StudentPerformanceOnSequence {
|
Line 1173 sub StudentPerformanceOnSequence {
|
} |
} |
} |
} |
# |
# |
if ($links eq 'yes' && $symbol ne ' ') { |
if ( ($links eq 'yes' && $symbol ne ' ') || |
|
($links eq 'all')) { |
$symbol = '<a href="/adm/grades'. |
$symbol = '<a href="/adm/grades'. |
'?symb='.&Apache::lonnet::escape($resource->{'symb'}). |
'?symb='.&Apache::lonnet::escape($resource->{'symb'}). |
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |