version 1.117, 2009/03/05 09:12:14
|
version 1.121, 2012/03/15 20:53:18
|
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'}. |
Line 1457 sub compute_statistics_on_sequence {
|
Line 1454 sub compute_statistics_on_sequence {
|
my @Data; |
my @Data; |
foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)) { |
foreach my $res (&Apache::lonstathelpers::get_resources($navmap,$seq)) { |
foreach my $part (@{$res->parts}) { |
foreach my $part (@{$res->parts}) { |
next if ($res->is_survey($part)); |
next if (($res->is_survey($part)) || ($res->is_anonsurvey($part))) ; |
# |
# |
# This is where all the work happens |
# This is where all the work happens |
my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1); |
my $data = &get_statistics($seq,$res,$part,scalar(@StatsArray)+1); |
Line 1592 sub get_statistics {
|
Line 1589 sub get_statistics {
|
$data->{'sections'}=$sections; |
$data->{'sections'}=$sections; |
$data->{'course'} = $env{'request.course.id'}; |
$data->{'course'} = $env{'request.course.id'}; |
my $urlres=(&Apache::lonnet::decode_symb($resource->symb))[2]; |
my $urlres=(&Apache::lonnet::decode_symb($resource->symb))[2]; |
$data->{'urlres'}=$urlres; |
|
my %storestats = |
my %storestats = |
&LONCAPA::lonmetadata::dynamic_metadata_storage($data); |
&LONCAPA::lonmetadata::dynamic_metadata_storage($data); |
my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)}); |
my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)}); |