version 1.22, 2006/12/31 22:43:48
|
version 1.25, 2011/01/17 00:19:41
|
Line 31 use strict;
|
Line 31 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
|
use Apache::lonquickgrades(); |
use Apache::loncoursedata(); |
use Apache::loncoursedata(); |
use Apache::lonstatistics; |
use Apache::lonstatistics; |
use Apache::lonstathelpers; |
use Apache::lonstathelpers; |
Line 67 sub BuildCorrectProblemsPage {
|
Line 68 sub BuildCorrectProblemsPage {
|
\%Saveable_Parameters); |
\%Saveable_Parameters); |
# |
# |
&Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
|
|
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot')); |
|
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
# |
# |
$r->print(&CreateInterface()); |
$r->print(&CreateInterface()); |
# |
# |
Line 290 sub CreateInterface {
|
Line 294 sub CreateInterface {
|
## |
## |
## Environment variable initialization |
## Environment variable initialization |
my $Str; |
my $Str; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Correct Problems Plot'); |
|
$Str .= '<p>'; |
$Str .= '<p>'; |
# |
# |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= &Apache::loncommon::start_data_table(); |
$Str .= '<tr>'; |
$Str .= &Apache::loncommon::start_data_table_header_row(); |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<th>'.&mt('Sections').'</th>'; |
$Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>'; |
$Str .= '<th>'.&mt('Groups').'</th>'; |
$Str .= '<td align="center"><b>'.&mt('Access Status').'</b></td>'; |
$Str .= '<th>'.&mt('Access Status').'</th>'; |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
$Str .= '<th>'.&mt('Sequences and Folders').'</th>'; |
$Str .= '<td rowspan="2">'. |
$Str .= '<th>'.&mt('Time Period').'</th>'; |
&Apache::lonstathelpers::limit_by_time_form().'</td>'; |
$Str .= &Apache::loncommon::end_data_table_header_row(); |
$Str .= '</tr>'."\n"; |
|
# |
# |
$Str .= '<tr><td align="center">'."\n"; |
$Str .= &Apache::loncommon::start_data_table_row(); |
|
$Str .= '<td align="center" valign="top">'."\n"; |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); |
$Str .= '</td>'; |
$Str .= '</td>'; |
# |
# |
$Str .= '<td align="center">'."\n"; |
$Str .= '<td align="center" valign="top">'."\n"; |
$Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5); |
$Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5); |
$Str .= '</td>'; |
$Str .= '</td>'; |
$Str .= '<td align="center">'; |
$Str .= '<td align="center" valign="top">'; |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); |
$Str .= '</td><td>'."\n"; |
$Str .= '</td>'."\n"; |
# |
# |
|
$Str .= '<td align="center" valign="top">'."\n"; |
$Str .= &Apache::lonstatistics::map_select('Maps','multiple,all',5); |
$Str .= &Apache::lonstatistics::map_select('Maps','multiple,all',5); |
$Str .= '</td>'; |
$Str .= '</td>'; |
# |
# |
$Str .= '</tr>'."\n"; |
$Str .= '<td align="center" valign="top">'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= &Apache::lonstathelpers::limit_by_time_form(); |
|
$Str .= '</td>'; |
|
# |
|
$Str .= &Apache::loncommon::end_data_table_row(); |
|
$Str .= &Apache::loncommon::end_data_table(); |
# |
# |
$Str .= '<nobr>'.&mt('Status: [_1]', |
$Str .= '<p><span class="LC_nobreak">' |
'<input type="text" '. |
.&mt('Status: [_1]', |
'name="stats_status" size="60" value="" />'). |
'<input type="text" name="stats_status"' |
'</nobr>'.'</p>'; |
.' size="60" value="" readonly="readonly" />') |
|
.'</span></p>'; |
|
$Str .= '</p>'; |
## |
## |
return $Str; |
return $Str; |
} |
} |