version 1.24, 2005/04/19 13:59:35
|
version 1.28, 2006/12/21 19:52:28
|
Line 135 sub BuildSubmissionTimePage {
|
Line 135 sub BuildSubmissionTimePage {
|
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print(&Apache::lonstathelpers::render_resource($resource)); |
$r->print('<br />'); |
$r->print('<br />'); |
$r->rflush(); |
$r->rflush(); |
$r->print(&analyze_times($r,$resource->symb,\@Students, |
if (@Students) { |
$current_problem->{'part'})); |
$r->print(&analyze_times($r,$resource->symb,\@Students, |
|
$current_problem->{'part'})); |
|
} |
} |
} |
$r->print('<hr />'); |
$r->print('<hr />'); |
} |
} |
Line 174 sub analyze_times {
|
Line 176 sub analyze_times {
|
# Get the data |
# Get the data |
my $SubData = &Apache::loncoursedata::get_response_time_data |
my $SubData = &Apache::loncoursedata::get_response_time_data |
([&Apache::lonstatistics::get_selected_sections()], |
([&Apache::lonstatistics::get_selected_sections()], |
|
[&Apache::lonstatistics::get_selected_groups()], |
$Apache::lonstatistics::enrollment_status, |
$Apache::lonstatistics::enrollment_status, |
$symb,$part); |
$symb,$part); |
if (! defined($SubData) || ! ref($SubData)) { |
if (! defined($SubData) || ! ref($SubData)) { |
Line 395 sub CreateInterface {
|
Line 398 sub CreateInterface {
|
## |
## |
## Build the menu |
## Build the menu |
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs(undef,'Submission Time Plots'); |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Submission Time Plots'); |
$Str .= '<p>'; |
$Str .= '<p>'; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<th align="center">'.&mt('Sections').'</th>'; |
$Str .= '<th align="center">'.&mt('Sections').'</th>'; |
$Str .= '<th align="center">'.&mt('Enrollment Status').'</th>'; |
$Str .= '<th align="center">'.&mt('Groups').'</th>'; |
|
$Str .= '<th align="center">'.&mt('Access Status').'</th>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
## |
## |
## |
## |
Line 408 sub CreateInterface {
|
Line 412 sub CreateInterface {
|
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',4); |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',4); |
$Str .= '</td>'; |
$Str .= '</td>'; |
# |
# |
|
$Str .= '<td align="center">'."\n"; |
|
$Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',4); |
|
$Str .= '</td>'; |
|
# |
$Str .= '<td align="center">'; |
$Str .= '<td align="center">'; |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,4); |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,4); |
$Str .= '</td>'; |
$Str .= '</td>'; |