--- loncom/interface/lonstatistics.pm	2002/07/25 21:23:51	1.32
+++ loncom/interface/lonstatistics.pm	2002/07/26 16:22:09	1.33
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonstatistics.pm,v 1.32 2002/07/25 21:23:51 stredwic Exp $
+# $Id: lonstatistics.pm,v 1.33 2002/07/26 16:22:09 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -99,6 +99,15 @@ sub ProcessFormData{
     $cache->{'StudentAssessmentStudent'} = 
         &Apache::lonnet::unescape($cache->{'StudentAssessmentStudent'});
 
+    if(defined($ENV{'form.Section'})) {
+        my @sectionsSelected = (ref($ENV{'form.Section'}) ?
+                               @{$ENV{'form.Section'}} :
+                                ($ENV{'form.Section'}));
+        $cache->{'sectionsSelected'} = join(':', @sectionsSelected);
+    } elsif(!defined($cache->{'sectionsSelected'})) {
+        $cache->{'sectionsSelected'} = $cache->{'sectionList'};
+    }
+
     foreach (keys(%ENV)) {
         if(/form\.Analyze:::/) {
 #            $cache->{'reportSelected'} = 'Analyze';
@@ -459,6 +468,44 @@ sub BuildClasslist {
     return $Str;
 }
 
+sub CreateMainMenu {
+    my ($status, $reports)=@_;
+
+    my $Str = '';
+
+    $Str .= '<table border="0"><tbody><tr>'."\n";
+    $Str .= '<td></td><td></td>'."\n";
+    $Str .= '<td align="center"><b>Analysis Reports:</b></td>'."\n";
+    $Str .= '<td align="center"><b>Student Status:</b></td></tr>'."\n";
+    $Str .= '<tr>'."\n";
+    $Str .= '<td align="center"><input type="submit" name="Refresh" ';
+    $Str .= 'value="Refresh" /></td>'."\n";
+    $Str .= '<td align="center"><input type="submit" name="DownloadAll" ';
+    $Str .= 'value="Update All Student Data" /></td>'."\n";
+    $Str .= '<td align="center">';
+    $Str .= '<select name="reportSelected" onchange="document.';
+    $Str .= 'Statistics.submit()">'."\n";
+
+    foreach (sort(keys(%$reports))) {
+        next if($_ eq 'reportSelected');
+        $Str .= '<option name="'.$_.'"';
+        if($reports->{'reportSelected'} eq $reports->{$_}) {
+            $Str .= ' selected=""';
+        }
+        $Str .= '>'.$reports->{$_}.'</option>'."\n";
+    }
+    $Str .= '</select></td>'."\n";
+
+    $Str .= '<td align="center">';
+    $Str .= &Apache::lonhtmlcommon::StatusOptions($status, 'Statistics');
+    $Str .= '</td>'."\n";
+
+    $Str .= '</tr></tbody></table>'."\n";
+    $Str .= '<hr>'."\n";
+
+    return $Str;
+}
+
 sub BuildStatistics {
     my ($r)=@_;
 
@@ -502,9 +549,7 @@ sub BuildStatistics {
         $r->print(&Apache::lonhtmlcommon::Title('LON-CAPA Statistics'));
         $r->print('<form name="Statistics" ');
         $r->print('method="post" action="/adm/statistics">');
-        $r->print(&Apache::lonhtmlcommon::CreateStatisticsMainMenu(
-                                                             $cache{'Status'}, 
-                                                             \%reports));
+        $r->print(&CreateMainMenu($cache{'Status'}, \%reports));
         untie(%cache);
     } else {
         $r->print('<html><body>Unable to tie database.</body></html>');

		Analysis Reports:	Student Status:
{'reportSelected'} eq $reports->{$_}) { + $Str .= ' selected=""'; + } + $Str .= '>'.$reports->{$_}.''."\n"; + } + $Str .= '	'; + $Str .= &Apache::lonhtmlcommon::StatusOptions($status, 'Statistics'); + $Str .= '