version 1.18, 2005/04/07 06:56:24
|
version 1.20, 2006/05/05 20:03:43
|
Line 59 sub BuildCorrectProblemsPage {
|
Line 59 sub BuildCorrectProblemsPage {
|
my ($r,$c)=@_; |
my ($r,$c)=@_; |
# |
# |
my %Saveable_Parameters = ('Status' => 'scalar', |
my %Saveable_Parameters = ('Status' => 'scalar', |
'Section' => 'array'); |
'Section' => 'array', |
|
'Groups' => 'array'); |
&Apache::loncommon::store_course_settings('correct_problems_plot', |
&Apache::loncommon::store_course_settings('correct_problems_plot', |
\%Saveable_Parameters); |
\%Saveable_Parameters); |
&Apache::loncommon::restore_course_settings('correct_problems_plot', |
&Apache::loncommon::restore_course_settings('correct_problems_plot', |
Line 73 sub BuildCorrectProblemsPage {
|
Line 74 sub BuildCorrectProblemsPage {
|
# |
# |
if (@Students < 1) { |
if (@Students < 1) { |
$r->print('<h2>'. |
$r->print('<h2>'. |
&mt('There are no students in the sections selected'). |
&mt('There are no students in the sections/groups selected'). |
'</h2>'); |
'</h2>'); |
} |
} |
# |
# |
Line 135 sub BuildCorrectProblemsPage {
|
Line 136 sub BuildCorrectProblemsPage {
|
&Apache::loncoursedata::populate_weight_table(); |
&Apache::loncoursedata::populate_weight_table(); |
my $score_data = &Apache::loncoursedata::get_student_scores |
my $score_data = &Apache::loncoursedata::get_student_scores |
([&Apache::lonstatistics::get_selected_sections()], |
([&Apache::lonstatistics::get_selected_sections()], |
|
[&Apache::lonstatistics::get_selected_groups()], |
\@ProblemSymbs, |
\@ProblemSymbs, |
$Apache::lonstatistics::enrollment_status,undef, |
$Apache::lonstatistics::enrollment_status,undef, |
$starttime,$endtime); |
$starttime,$endtime); |
Line 288 sub CreateInterface {
|
Line 290 sub CreateInterface {
|
## |
## |
## Environment variable initialization |
## Environment variable initialization |
my $Str; |
my $Str; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Correct Problems Plot'); |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot'); |
$Str .= '<p>'; |
$Str .= '<p>'; |
# |
# |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
|
$Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
$Str .= '<td rowspan="2">'. |
$Str .= '<td rowspan="2">'. |
Line 304 sub CreateInterface {
|
Line 307 sub CreateInterface {
|
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= '</td>'; |
$Str .= '</td>'; |
# |
# |
|
$Str .= '<td align="center">'."\n"; |
|
$Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5); |
|
$Str .= '</td>'; |
$Str .= '<td align="center">'; |
$Str .= '<td align="center">'; |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
$Str .= '</td><td>'."\n"; |
$Str .= '</td><td>'."\n"; |