--- loncom/interface/statistics/longradinganalysis.pm	2006/02/14 22:12:46	1.3
+++ loncom/interface/statistics/longradinganalysis.pm	2013/07/22 18:06:58	1.12
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: longradinganalysis.pm,v 1.3 2006/02/14 22:12:46 albertel Exp $
+# $Id: longradinganalysis.pm,v 1.12 2013/07/22 18:06:58 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -55,6 +55,7 @@ sub build_grading_analysis_page {
     #
     my %saveable_parameters = ('Status' => 'scalar',
                                'Section' => 'array',
+                               'Group' => 'array',
                                );
     &Apache::loncommon::store_course_settings('grading_analysis',
                                               \%saveable_parameters);
@@ -68,7 +69,7 @@ sub build_grading_analysis_page {
     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 @cache_button_HTML = 
@@ -148,10 +149,7 @@ sub build_grading_analysis_page {
 
 sub task_analysis {
     my ($r,$problem,$students) = @_;
-    my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
-        ($r,'Student Answer Compilation Status',
-         'Student Answer Compilation Progress', scalar(@$students),
-         'inline',undef,'Statistics','stats_status');
+    my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,scalar(@$students));
     my %graders;
     foreach my $student (@$students) {
 	my $sname = $student->{'username'};
@@ -175,7 +173,7 @@ sub task_analysis {
 	}
 
 	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
-                                                 &mt('last student'));
+                                                     'last student');
 
     }
 
@@ -196,7 +194,7 @@ sub task_analysis {
 	}
 	close($outputfile);
 	$r->print('<br />'.
-		  '<a href="'.$filename.'">'.&mt('Your csv file.')."</a>\n");
+		  '<a href="'.$filename.'">'.&mt('Your CSV file.')."</a>\n");
     } elsif ($env{'form.output'} eq 'excel') {
 	my ($excel_workbook,$excel_sheet,$filename,$format,$rows_output) = 
 	    &init_excel_output($r);
@@ -215,13 +213,17 @@ sub task_analysis {
 		  '<a href="'.$filename.'">'.
 		  &mt('Your Excel spreadsheet.').'</a>'."\n");
     } else {
-	$r->print('<table class="thinborder">');
-	$r->print('<tr><th>Name (username)</th><th>Grades Assigned</th></tr>');
+	$r->print(&Apache::loncommon::start_data_table());
+	$r->print(&Apache::loncommon::start_data_table_header_row().
+		  '<th>'.&mt('Name (username)').'</th><th>'.&mt('Grades Assigned').'</th>'.
+		  &Apache::loncommon::end_data_table_header_row() );
 	foreach my $line (@output) {
-	    $r->print(sprintf("<tr><td>%s (<tt>%s</tt>)</td><td>%s</td></tr>",
-			      @{$line}));
+	    $r->print(&Apache::loncommon::start_data_table_row().
+		      sprintf("<td>%s (<tt>%s</tt>)</td><td>%s</td></tr>",
+			      @{$line}).
+		      &Apache::loncommon::end_data_table_row());
 	}
-	$r->print('</table>');
+	$r->print(&Apache::loncommon::end_data_table());
     }
     &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
 }
@@ -263,7 +265,7 @@ sub init_excel_output {
 			$format->{'h1'});
     $cols_output += 3;
     my $sectionstring = '';
-    my @Sections = &Apache::lonstatistics::get_selected_sections();
+#    my @Sections = &Apache::lonstatistics::get_selected_sections(); #This is never used
     $excel_sheet->write($header_row,$cols_output++,
 			&Apache::lonstatistics::section_and_enrollment_description('plaintext'),
 			$format->{'h3'});
@@ -299,13 +301,13 @@ sub create_interface {
     $output_selector .= '</select>'.$/;
 
     my $str = '';
-    $str .= &Apache::lonhtmlcommon::breadcrumbs
-        (undef,'Detailed Grading Statistics');
+    $str .= &Apache::lonhtmlcommon::breadcrumbs('Detailed Grading Statistics');
     $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>'.&mt('<b>Output as</b> [_1]',$output_selector).'</td>';
+    $str .= '<td align="center"><b>'.&mt('Groups').'</b></td>';
+    $str .= '<td align="center"><b>'.&mt('Access Status').'</b></td>';
+    $str .= '<td>'.&mt('[_1]Output as[_2] [_3]','<b>',$output_selector,'</b>').'</td>';
     $str .= '</tr>'."\n";
     ##
     ## 
@@ -313,17 +315,15 @@ sub create_interface {
     $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>';
     #
     $str .= '<td>';
-    ##
-    $str .= '<nobr><label>'.&mt('Status: [_1]',
-                                 '<input type="text" '.
-                                 'name="stats_status" size="60" value="" />'
-                                 ).
-                    '</label></nobr>';
     $str .= '</td>';
     ##
     ##