version 1.102, 2004/06/04 17:41:35
|
version 1.105, 2004/06/24 19:17:49
|
Line 77 use Apache::lonproblemstatistics();
|
Line 77 use Apache::lonproblemstatistics();
|
use Apache::lonstudentassessment(); |
use Apache::lonstudentassessment(); |
use Apache::lonpercentage; |
use Apache::lonpercentage; |
use Apache::lonstudentsubmissions(); |
use Apache::lonstudentsubmissions(); |
|
use Apache::lonsurveyreports(); |
|
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
Line 905 Ensures all student data is up to date.
|
Line 906 Ensures all student data is up to date.
|
############################################### |
############################################### |
############################################### |
############################################### |
sub Gather_Full_Student_Data { |
sub Gather_Full_Student_Data { |
my ($r) = @_; |
my ($r,$formname,$inputname) = @_; |
|
my $status_type; |
|
if (defined($formname)) { |
|
$status_type = 'inline'; |
|
} else { |
|
$status_type = 'popup'; |
|
} |
my $c = $r->connection(); |
my $c = $r->connection(); |
# |
# |
&Apache::loncoursedata::clear_internal_caches(); |
&Apache::loncoursedata::clear_internal_caches(); |
Line 915 sub Gather_Full_Student_Data {
|
Line 922 sub Gather_Full_Student_Data {
|
# Open the progress window |
# Open the progress window |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
($r,&mt('Student Data Compilation Status'), |
($r,&mt('Student Data Compilation Status'), |
&mt('Student Data Compilation Progress'), scalar(@Students)); |
&mt('Student Data Compilation Progress'), scalar(@Students), |
|
$status_type,undef,$formname,$inputname); |
# |
# |
while (my $student = shift @Students) { |
while (my $student = shift @Students) { |
return if ($c->aborted()); |
return if ($c->aborted()); |
Line 934 sub Gather_Full_Student_Data {
|
Line 942 sub Gather_Full_Student_Data {
|
sub DisplayClasslist { |
sub DisplayClasslist { |
my ($r)=@_; |
my ($r)=@_; |
# |
# |
my @Fields = ('fullname','username','domain','id','section'); |
# Output some of the standard interface components |
|
my $Str; |
|
$Str .= '<p><table cellspacing="5">'."\n"; |
|
$Str .= '<tr>'; |
|
$Str .= '<th align="center"><b>'.&mt('Sections').'</b></th>'; |
|
$Str .= '<th align="center"><b>'.&mt('Enrollment Status').'</b></th>'; |
|
$Str .= '</tr>'.$/; |
|
$Str .= '<tr>'; |
|
$Str .= '<td>'. |
|
&Apache::lonstatistics::SectionSelect('Section','multiple',5). |
|
'</td>'; |
|
$Str .= '<td>'. |
|
&Apache::lonhtmlcommon::StatusOptions(undef,undef,5). |
|
'</td>'; |
|
|
|
$Str .= '</tr>'.$/; |
|
$Str .= '</table></p>'; |
|
$Str .= '<input type="submit" name="selectstudent" value="'. |
|
&mt('Update Display').'" />'; |
|
$r->print($Str); |
|
$r->rflush(); |
# |
# |
my $Str=''; |
my @Fields = ('fullname','username','domain','id','section','status'); |
|
# |
|
$Str = ''; |
if (! @Students) { |
if (! @Students) { |
if ($SelectedSections[0] eq 'all') { |
if ($SelectedSections[0] eq 'all') { |
if (lc($ENV{'form.Status'}) eq 'any') { |
if (lc($ENV{'form.Status'}) eq 'any') { |
Line 1048 sub CreateMainMenu {
|
Line 1078 sub CreateMainMenu {
|
short_description => |
short_description => |
&mt('Prepare Excel spreadsheets of student submissions.'), |
&mt('Prepare Excel spreadsheets of student submissions.'), |
}, |
}, |
|
{ internal_name => 'survey_reports', |
|
name => &mt('Survey Reports'), |
|
short_description => |
|
&mt('Prepare reports on survey results.'), |
|
}, |
{ internal_name => 'correct_problems_plot', |
{ internal_name => 'correct_problems_plot', |
name => &mt('Correct Problems Plot'), |
name => &mt('Correct Problems Plot'), |
short_description => |
short_description => |
Line 1193 sub handler {
|
Line 1228 sub handler {
|
'/adm/statistics?reportselected=student_submission_reports', |
'/adm/statistics?reportselected=student_submission_reports', |
text=>'Student Submission Reports'}); |
text=>'Student Submission Reports'}); |
&Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c); |
&Apache::lonstudentsubmissions::BuildStudentSubmissionsPage($r,$c); |
|
} elsif($GoToPage eq 'survey_reports') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=> |
|
'/adm/statistics?reportselected=survey_reports', |
|
text=>'Survey Reports'}); |
|
&Apache::lonsurveyreports::BuildSurveyReportsPage($r,$c); |
} elsif($GoToPage eq 'correct_problems_plot') { |
} elsif($GoToPage eq 'correct_problems_plot') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>'/adm/statistics?reportselected=correct_problems_plot', |
({href=>'/adm/statistics?reportselected=correct_problems_plot', |