--- loncom/interface/statistics/lonproblemanalysis.pm 2006/05/30 12:46:49 1.126 +++ loncom/interface/statistics/lonproblemanalysis.pm 2006/08/18 15:15:38 1.128 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonproblemanalysis.pm,v 1.126 2006/05/30 12:46:49 www Exp $ +# $Id: lonproblemanalysis.pm,v 1.128 2006/08/18 15:15:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -62,6 +62,7 @@ sub BuildProblemAnalysisPage { # my %Saveable_Parameters = ('Status' => 'scalar', 'Section' => 'array', + 'Groups' => 'array', 'NumPlots' => 'scalar', 'AnalyzeOver' => 'scalar', ); @@ -77,7 +78,7 @@ sub BuildProblemAnalysisPage { my @Students = @Apache::lonstatistics::Students; # if (@Students < 1 && exists($env{'form.firstrun'})) { - $r->print('<h2>There are no students in the sections selected</h2>'); + $r->print('<h2>There are no students in the sections/groups selected</h2>'); } # my @CacheButtonHTML = @@ -197,6 +198,7 @@ sub numerical_response_analysis { # Gather student data my $response_data = &Apache::loncoursedata::get_response_data ([&Apache::lonstatistics::get_selected_sections()], + [&Apache::lonstatistics::get_selected_groups()], $Apache::lonstatistics::enrollment_status, $resource->symb,$respid); # @@ -785,6 +787,7 @@ sub radio_response_analysis { # Gather student data my $response_data = &Apache::loncoursedata::get_response_data ([&Apache::lonstatistics::get_selected_sections()], + [&Apache::lonstatistics::get_selected_groups()], $Apache::lonstatistics::enrollment_status, $resource->symb,$respid); my $correct; # either a hash reference or a scalar @@ -1190,6 +1193,7 @@ sub OptionResponseAnalysis { # Note: part data is not needed. my $PerformanceData = &Apache::loncoursedata::get_response_data ([&Apache::lonstatistics::get_selected_sections()], + [&Apache::lonstatistics::get_selected_groups()], $Apache::lonstatistics::enrollment_status, $resource->symb,$respid); if (! defined($PerformanceData) || @@ -1830,7 +1834,8 @@ sub CreateInterface { $Str .= '<table cellspacing="5">'."\n"; $Str .= '<tr>'; $Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; - $Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; + $Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>'; + $Str .= '<td align="center"><b>'.&mt('Access Status').'</b></td>'; $Str .= '<td align="center"> </td>'; $Str .= '</tr>'."\n"; ## @@ -1839,6 +1844,10 @@ sub CreateInterface { $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); $Str .= '</td>'; # + $Str .= '<td align="center">'."\n"; + $Str .= &Apache::lonstatistics::GroupSelect('Group','multiple',5); + $Str .= '</td>'; + # $Str .= '<td align="center">'; $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); $Str .= '</td>';