version 1.147, 2009/03/18 11:13:50
|
version 1.161, 2015/03/10 00:47:18
|
Line 64 use Apache::lonpercentage;
|
Line 64 use Apache::lonpercentage;
|
use Apache::lonstudentsubmissions(); |
use Apache::lonstudentsubmissions(); |
use Apache::lonsurveyreports(); |
use Apache::lonsurveyreports(); |
use Apache::longradinganalysis(); |
use Apache::longradinganalysis(); |
|
use Apache::lonquickgrades(); |
use LONCAPA; |
use LONCAPA; |
|
|
# |
# |
Line 405 sub StudentDataSelect {
|
Line 406 sub StudentDataSelect {
|
$Str .= 'size="'.$numvisible.'" >'."\n"; |
$Str .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
# Deal with 'all' |
# Deal with 'all' |
$Str .= ' <option value="all" '; |
$Str .= ' <option value="all"'; |
foreach (@SelectedStudentData) { |
foreach (@SelectedStudentData) { |
if ($_ eq 'all') { |
if ($_ eq 'all') { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
$Str .= ">all</option>\n"; |
$Str .= '>'.&mt('all')."</option>\n"; |
# |
# |
# Loop through the student data fields |
# Loop through the student data fields |
foreach my $item (@StudentDataOrder) { |
foreach my $item (@StudentDataOrder) { |
$Str .= ' <option value="'.$item.'" '; |
$Str .= ' <option value="'.$item.'"'; |
foreach (@SelectedStudentData) { |
foreach (@SelectedStudentData) { |
if ($item eq $_ ) { |
if ($item eq $_ ) { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
$Str .= '>'.$item."</option>\n"; |
$Str .= '>'.&mt($item)."</option>\n"; |
} |
} |
$Str .= "</select>\n"; |
$Str .= "</select>\n"; |
return $Str; |
return $Str; |
Line 506 sub map_select {
|
Line 507 sub map_select {
|
$form .= 'size="'.$numvisible.'" >'."\n"; |
$form .= 'size="'.$numvisible.'" >'."\n"; |
# |
# |
# Put in option for 'all' |
# Put in option for 'all' |
$form .= ' <option value="all" '; |
$form .= ' <option value="all"'; |
if ($selected_maps[0] eq 'all') { |
if ($selected_maps[0] eq 'all') { |
$form .= 'selected '; |
$form .= ' selected="selected"'; |
} |
} |
$form .= ">all</option>\n"; |
$form .= '>'.&mt('all').'</option>'."\n"; |
# |
# |
# Loop through the sequences |
# Loop through the sequences |
my @sequences = &selected_sequences_with_assessments('all'); |
my @sequences = &selected_sequences_with_assessments('all'); |
Line 521 sub map_select {
|
Line 522 sub map_select {
|
$navmap = shift(@sequences); |
$navmap = shift(@sequences); |
} |
} |
foreach my $seq (@sequences){ |
foreach my $seq (@sequences){ |
$form .= ' <option value="'.$seq->symb.'" '; |
$form .= ' <option value="'.$seq->symb.'"'; |
foreach (@selected_maps) { |
foreach (@selected_maps) { |
if ($seq->symb eq $_) { |
if ($seq->symb eq $_) { |
$form .= 'selected '; |
$form .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 556 sub SectionSelect {
|
Line 557 sub SectionSelect {
|
# |
# |
# Loop through the sequences |
# Loop through the sequences |
foreach my $s (@Sections) { |
foreach my $s (@Sections) { |
$Str .= ' <option value="'.$s.'" '; |
$Str .= ' <option value="'.$s.'"'; |
foreach (&get_selected_sections()) { |
foreach (&get_selected_sections()) { |
if ($s eq $_) { |
if ($s eq $_) { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 591 sub GroupSelect {
|
Line 592 sub GroupSelect {
|
# |
# |
# Loop through the groups |
# Loop through the groups |
foreach my $s (@Groups) { |
foreach my $s (@Groups) { |
$Str .= ' <option value="'.$s.'" '; |
$Str .= ' <option value="'.$s.'"'; |
foreach my $group (&get_selected_groups()) { |
foreach my $group (&get_selected_groups()) { |
if ($s eq $group) { |
if ($s eq $group) { |
$Str .= 'selected '; |
$Str .= ' selected="selected"'; |
last; |
last; |
} |
} |
} |
} |
Line 614 sub DisplayClasslist {
|
Line 615 sub DisplayClasslist {
|
# Output some of the standard interface components |
# Output some of the standard interface components |
my $Str; |
my $Str; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Select One Student'); |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Select One Student'); |
$Str .= '<p><table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Groups').'</b></th>'; |
$Str .= '<th align="center"><b>'.&mt('Groups').'</b></th>'; |
Line 632 sub DisplayClasslist {
|
Line 633 sub DisplayClasslist {
|
'</td>'; |
'</td>'; |
|
|
$Str .= '</tr>'.$/; |
$Str .= '</tr>'.$/; |
$Str .= '</table></p>'; |
$Str .= '</table>'; |
$Str .= '<input type="submit" name="selectstudent" value="'. |
$Str .= '<input type="submit" name="selectstudent" value="'. |
&mt('Update Display').'" />'; |
&mt('Update Display').'" />'; |
$r->print($Str); |
$r->print($Str); |
Line 690 sub DisplayClasslist {
|
Line 691 sub DisplayClasslist {
|
} |
} |
|
|
$Str .= '<h2>'.&mt('Select One Student').'</h2>' |
$Str .= '<h2>'.&mt('Select One Student').'</h2>' |
.'<p>'.&mt("Click on a student's name or username to view their chart").'</p>' |
.'<p>'.&mt("Click on a student's name or username to view their chart.").'</p>' |
.&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table_header_row(); |
.&Apache::loncommon::start_data_table_header_row(); |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
$Str .= '<th><a href="/adm/statistics?'. |
$Str .= '<th><a href="/adm/statistics?'. |
'reportSelected=student_assessment&'. |
'reportSelected=student_assessment&'. |
'selectstudent=1&'. |
'selectstudent=1&'. |
'sort='.$field.'">'.&mt($field). |
'sort='.$field.'">'.&mt($field). |
'</a></th>'; |
'</a></th>'; |
} |
} |
Line 711 sub DisplayClasslist {
|
Line 712 sub DisplayClasslist {
|
if ($field eq 'fullname' || $field eq 'username') { |
if ($field eq 'fullname' || $field eq 'username') { |
$Str .= '<a href="/adm/statistics?reportSelected='; |
$Str .= '<a href="/adm/statistics?reportSelected='; |
$Str .= &escape('student_assessment'); |
$Str .= &escape('student_assessment'); |
$Str .= '&sort='.&escape($env{'form.sort'}); |
$Str .= '&sort='.&escape($env{'form.sort'}); |
$Str .= '&SelectedStudent='; |
$Str .= '&SelectedStudent='; |
$Str .= &escape($sname).'">'; |
$Str .= &escape($sname).'">'; |
$Str .= $student->{$field}.' '; |
$Str .= $student->{$field}; |
$Str .= '</a>'; |
$Str .= '</a>'; |
} elsif ($field eq 'status') { |
} elsif ($field eq 'status') { |
$Str .= &mt($student->{$field}); |
$Str .= &mt($student->{$field}); |
} else { |
} else { |
$Str .= $student->{$field}; |
if ($student->{$field} eq 'none') { |
|
$Str .= &mt('none') |
|
} else { |
|
$Str .= $student->{$field}; |
|
} |
} |
} |
$Str .= '</td>'; |
$Str .= '</td>'; |
} |
} |
Line 749 sub CreateMainMenu {
|
Line 754 sub CreateMainMenu {
|
|
|
{url => '/adm/statistics?reportSelected=problem_analysis', |
{url => '/adm/statistics?reportSelected=problem_analysis', |
permission => 'F', |
permission => 'F', |
icon => 'edit-find.png', |
icon => 'prob_ana.png', |
linktext => ('Detailed Problem Analysis'), |
linktext => ('Detailed Problem Analysis'), |
linktitle => ('Detailed statistics and graphs of student performance on problems.')}, |
linktitle => ('Detailed statistics and graphs of student performance on problems.')}, |
]}, |
]}, |
Line 777 sub CreateMainMenu {
|
Line 782 sub CreateMainMenu {
|
|
|
{url => '/adm/statistics?reportSelected=survey_reports', |
{url => '/adm/statistics?reportSelected=survey_reports', |
permission => 'F', |
permission => 'F', |
icon => 'docs.png', |
icon => 'survey_rep.png', |
linktext => ('Survey Reports'), |
linktext => ('Survey Reports'), |
linktitle => ('Prepare reports on survey results.')}, |
linktitle => ('Prepare reports on survey results.')}, |
]}); |
]}); |
Line 792 sub handler {
|
Line 797 sub handler {
|
my $r=shift; |
my $r=shift; |
my $c = $r->connection(); |
my $c = $r->connection(); |
# |
# |
# Check for overloading |
|
my $loaderror=&Apache::lonnet::overloaderror($r); |
|
if ($loaderror) { return $loaderror; } |
|
$loaderror= |
|
&Apache::lonnet::overloaderror($r, |
|
$env{'course.'.$env{'request.course.id'}.'.home'}); |
|
if ($loaderror) { return $loaderror; } |
|
# |
|
# Check for access |
# Check for access |
if (! &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
if (! &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) { |
$env{'user.error.msg'}= |
$env{'user.error.msg'}= |
Line 846 ENDSTYLE
|
Line 843 ENDSTYLE
|
bug=>'Statistics and Charts'}); |
bug=>'Statistics and Charts'}); |
if (! exists($env{'form.reportSelected'}) || |
if (! exists($env{'form.reportSelected'}) || |
$env{'form.reportSelected'} eq '') { |
$env{'form.reportSelected'} eq '') { |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page'). |
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Statistics Main Page')); |
&CreateMainMenu()); |
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
|
$r->print(&CreateMainMenu()); |
} else { |
} else { |
# |
# |
if (! &Apache::lonmysql::verify_sql_connection()) { |
if (! &Apache::lonmysql::verify_sql_connection()) { |
my $serveradmin = $r->dir_config('lonAdmEMail'); |
my $serveradmin = $r->dir_config('lonAdmEMail'); |
$r->print('<h2 class="LC_error">'. |
$r->print('<p class="LC_error">'. |
&mt('Unable to connect to database!'). |
&mt('Unable to connect to database!'). |
'</h2>'); |
'</p>'); |
$r->print('<p>' |
$r->print('<p>' |
.&mt('Please notify the server administrator [_1]', |
.&mt('Please notify the server administrator [_1]', |
,'<b>'.$serveradmin.'</b>') |
,'<b>'.$serveradmin.'</b>') |
.'</p>'); |
.'</p>'); |
$r->print('<p>'. |
$r->print('<p>'. |
&mt('Course Statistics and Charts cannot be '. |
&mt('Course Statistics and Charts cannot be '. |
'retrieved until the database is restarted. '. |
'retrieved until the database is restarted. '. |
'Your data is intact but cannot be displayed '. |
'Your data is intact but cannot be displayed '. |
'at this time.').'</p>'); |
'at this time.').'</p>'); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
Line 870 ENDSTYLE
|
Line 868 ENDSTYLE
|
# |
# |
# Clean out the caches |
# Clean out the caches |
if (exists($env{'form.ClearCache'})) { |
if (exists($env{'form.ClearCache'})) { |
&Apache::loncoursedata::delete_caches($env{'requres.course.id'}); |
&Apache::loncoursedata::delete_caches($env{'request.course.id'}); |
} |
} |
# |
# |
|
my $GoToPage = $env{'form.reportSelected'}; |
|
# |
# Begin form output |
# Begin form output |
$r->print('<form name="Statistics" '); |
$r->print('<form name="Statistics" '); |
|
if ($GoToPage eq 'student_submission_reports') { |
|
$r->print('onsubmit="return checkanon();" '); |
|
} |
$r->print('method="post" action="/adm/statistics">'); |
$r->print('method="post" action="/adm/statistics">'); |
$r->rflush(); |
$r->rflush(); |
# |
|
my $GoToPage = $env{'form.reportSelected'}; |
|
# |
|
$r->print('<input type="hidden" name="reportSelected" value="'. |
$r->print('<input type="hidden" name="reportSelected" value="'. |
$GoToPage.'">'); |
$GoToPage.'" />'); |
if($GoToPage eq 'activitylog') { |
if($GoToPage eq 'activitylog') { |
# &Apache::lonproblemstatistics::Activity(); |
# &Apache::lonproblemstatistics::Activity(); |
} elsif($GoToPage eq 'problem_statistics') { |
} elsif($GoToPage eq 'problem_statistics') { |
Line 932 ENDSTYLE
|
Line 932 ENDSTYLE
|
# |
# |
$r->print("</form>\n"); |
$r->print("</form>\n"); |
} |
} |
|
&Apache::lonquickgrades::endGradeScreen($r); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
$r->rflush(); |
$r->rflush(); |
# |
# |