version 1.118, 2010/02/28 23:58:54
|
version 1.120, 2011/12/21 21:25:51
|
Line 52 package Apache::lonproblemstatistics;
|
Line 52 package Apache::lonproblemstatistics;
|
use strict; |
use strict; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::lonquickgrades(); |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
use Apache::lonstatistics; |
use Apache::lonstatistics; |
Line 610 sub CreateInterface {
|
Line 611 sub CreateInterface {
|
&parse_field_selection(); |
&parse_field_selection(); |
# |
# |
my $Str = ''; |
my $Str = ''; |
$Str .= &Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics', |
|
'Statistics_Overall_Key'); |
|
$Str .= '<p>'; |
$Str .= '<p>'; |
$Str .= &Apache::loncommon::start_data_table(); |
$Str .= &Apache::loncommon::start_data_table(); |
$Str .= &Apache::loncommon::start_data_table_header_row(); |
$Str .= &Apache::loncommon::start_data_table_header_row(); |
Line 645 sub CreateInterface {
|
Line 644 sub CreateInterface {
|
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= &Apache::loncommon::end_data_table(); |
$Str .= &Apache::loncommon::end_data_table(); |
# |
# |
$Str .= '<p><span class="LC_nobreak">' |
|
.&mt('Status: [_1]', |
|
'<input type="text" name="stats_status"' |
|
.' size="60" value="" readonly="readonly" />') |
|
.'</span></p>'; |
|
# |
|
$Str .= '</p>'; |
$Str .= '</p>'; |
$Str .= '<input type="submit" name="GenerateStatistics" value="'. |
$Str .= '<input type="submit" name="GenerateStatistics" value="'. |
&mt('Generate Statistics').'" />'; |
&mt('Generate Statistics').'" />'; |
Line 704 sub BuildProblemStatisticsPage {
|
Line 697 sub BuildProblemStatisticsPage {
|
undef(%SeqStat); |
undef(%SeqStat); |
# |
# |
# Finally let the user know we are here |
# Finally let the user know we are here |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Overall Problem Statistics', |
|
'Statistics_Overall_Key')); |
|
&Apache::lonquickgrades::startGradeScreen($r,'statistics'); |
|
|
my $interface = &CreateInterface($r); |
my $interface = &CreateInterface($r); |
$r->print($interface); |
$r->print($interface); |
$r->print('<input type="hidden" name="sortby" value="'.$env{'form.sortby'}. |
$r->print('<input type="hidden" name="sortby" value="'.$env{'form.sortby'}. |