--- loncom/interface/lonquickgrades.pm	2011/06/02 01:34:34	1.98
+++ loncom/interface/lonquickgrades.pm	2011/06/04 19:49:28	1.101
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.98 2011/06/02 01:34:34 www Exp $
+# $Id: lonquickgrades.pm,v 1.101 2011/06/04 19:49:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,17 +35,8 @@ use Apache::loncommon;
 use Apache::lonlocal;
 use Apache::lonnet;
 use Apache::grades;
-use Time::HiRes;
-my $time=0;
-
-sub tim {
-    my ($label)=@_;
-    my $tt=&Time::HiRes::time();
-    my $dt=$tt-$time;
-    &Apache::lonnet::logthis("qg $label ".$dt);
-    $time=$tt;
-}
-
+use Apache::loncoursedata;
+use Apache::lonstudentassessment;
 
 sub handler {
     my $r = shift;
@@ -100,6 +91,39 @@ sub real_handler {
     my $udom;
     my $stdid;
     if ($cangrade) {
+        $r->print("<h2>".&mt("Download Multiple")."</h2>".
+                  '<table cellspacing="5">'."\n".
+                  '<tr>'.
+                  '<td align="center"><b>'.&mt('Sections').'</b>'.
+                  &Apache::loncommon::help_open_topic("Chart_Sections").
+                  '</td>'.
+                  '<td align="center"><b>'.&mt('Groups').'</b>'.
+                  '</td>'.
+                  '<td align="center"><b>'.&mt('Student Data').'</b>'.
+                  &Apache::loncommon::help_open_topic("Chart_Student_Data").
+                  '</td>'.
+                  '<td align="center"><b>'.&mt('Access Status').'</b>'.
+                  &Apache::loncommon::help_open_topic("Chart_Enrollment_Status").
+                  '</td>'.
+                  '<td align="center"><b>'.&mt('Output Format').'</b>'.
+                  &Apache::loncommon::help_open_topic("Chart_Output_Formats").
+                  '</td><td>&nbsp;</td></tr>'."\n".
+                  '<tr><td align="center">'."\n".
+                  &Apache::lonstatistics::SectionSelect('Section','multiple',5).
+                  '</td><td align="center">'.
+                  &Apache::lonstatistics::GroupSelect('Group','multiple',5).
+                  '</td><td align="center">'.
+                  &Apache::lonstatistics::StudentDataSelect('StudentData','multiple',5,undef).
+                  '</td><td>'."\n".
+                  &Apache::lonhtmlcommon::StatusOptions(undef,undef,5).
+                  '</td><td>'."\n".
+                  &Apache::lonstudentassessment::CreateAndParseOutputSelector().
+                  '</td><td>'.
+                  '<input type="submit" name="download" value="'.&mt('Display/Download Multiple Students').'" />'.
+                  '</td></tr>'."\n".
+                  '</table>'."\n"
+                 );
+        $r->print("<hr /><h2>".&mt("Display Individual")."</h2>");
         if ($env{'form.uname'}) { $uname=$env{'form.uname'}; }
         if ($env{'form.udom'}) { $udom=$env{'form.udom'}; }
         if ($env{'form.id'}) { $stdid=$env{'form.id'}; }
@@ -117,8 +141,8 @@ sub real_handler {
         $r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
                  ,'<input type="text" value="'.$uname.'" size="12" name="uname" />'
                  ,'<input type="text" value="'.$stdid.'" size="12" name="id" /> '
-                 ,$chooseopt).'<br />'.
-                 '<input type="submit" name="display" value="'.&mt('Update Display').'" /></p>');
+                 ,$chooseopt).
+                 '&nbsp;&nbsp;<input type="submit" name="display" value="'.&mt('Display Individual Student').'" /></p>');
         if (($uname) && ($udom)) {
             $r->print('<p>'.&mt('Full Name: [_1]',&Apache::loncommon::plainname($uname,$udom)).'</p>');
         }
@@ -141,6 +165,35 @@ sub real_handler {
 
 }
 
+sub getStudentCatGrade {
+    my ($uname,$udom,%categories)=@_;
+    my ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=
+       &getData(1,$uname,$udom);
+    return &output_category_table(undef,0,$navmap,0,%categories);
+}
+
+sub getAllStudentData {
+    my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+
+    my %categories=&Apache::lonnet::dump('grading_categories',$cdom,$cnum);
+
+    my $classlist = &Apache::loncoursedata::get_classlist();
+
+    my $statusidx   = &Apache::loncoursedata::CL_STATUS();
+    my $usernameidx = &Apache::loncoursedata::CL_SNAME();
+    my $domainidx   = &Apache::loncoursedata::CL_SDOM();
+    my $fullnameidx = &Apache::loncoursedata::CL_FULLNAME();
+
+    foreach my $key (keys(%{$classlist})) {
+        my $student = $classlist->{$key};
+        my $perc=&getStudentCatGrade($classlist->{$student}->[$usernameidx],
+                                     $classlist->{$student}->[$domainidx],
+                                     %categories);
+    }
+}
+
+
 sub startGradeScreen {
     my ($r,$mode)=@_;
 
@@ -472,7 +525,7 @@ sub outputCategories {
         &Apache::lonnet::put('grading_categories',\%categories,$cdom,$cnum);
     }
 # new categories loaded now
-    &output_category_table($r,$cangrade,$navmap,%categories);
+    &output_category_table($r,$cangrade,$navmap,1,%categories);
 #
     if ($cangrade) {
         $r->print(&Apache::loncommon::resourcebrowser_javascript().
@@ -482,40 +535,6 @@ sub outputCategories {
                   '<input type="submit" name="storechanges" value="'.&mt("Save changes to grading categories").'" />'.
                   '<script>function storecmd (cmd) { document.quickform.cmd.value=cmd; document.quickform.submit(); }</script>');
     }
-#
-# Debug
-#
-#    my %data=&dumpdata($navmap);
-#    foreach (keys(%data)) {
-#        $r->print("\n<br />".$_.'='.$data{$_});
-#    }
-#   my @debugarray=('5:1','4:3','1:1','5:5','6:7');
-#   $r->print("Array: ".join(',',@debugarray).'<br />');
-#   $r->print("0,0,0: ".join(',',&drop(0,0,0,@debugarray)).'<br />');
-#   $r->print("1,0,0: ".join(',',&drop(1,0,0,@debugarray)).'<br />');
-#   $r->print("0,1,0: ".join(',',&drop(0,1,0,@debugarray)).'<br />');
-#   $r->print("1,1,0: ".join(',',&drop(1,1,0,@debugarray)).'<br />');
-#
-#   $r->print("0,0,2: ".join(',',&drop(0,0,2,@debugarray)).'<br />');
-#   $r->print("1,0,2: ".join(',',&drop(1,0,2,@debugarray)).'<br />');
-#   $r->print("0,1,2: ".join(',',&drop(0,1,2,@debugarray)).'<br />');
-#   $r->print("1,1,2: ".join(',',&drop(1,1,2,@debugarray)).'<br />');
-#
-#   $r->print("0,0,4: ".join(',',&drop(0,0,4,@debugarray)).'<br />');
-#   $r->print("1,0,4: ".join(',',&drop(1,0,4,@debugarray)).'<br />');
-#   $r->print("0,1,4: ".join(',',&drop(0,1,4,@debugarray)).'<br />');
-#   $r->print("1,1,4: ".join(',',&drop(1,1,4,@debugarray)).'<br />');
-#
-#   $r->print("0,0,5: ".join(',',&drop(0,0,5,@debugarray)).'<br />');
-#   $r->print("1,0,5: ".join(',',&drop(1,0,5,@debugarray)).'<br />');
-#   $r->print("0,1,5: ".join(',',&drop(0,1,5,@debugarray)).'<br />');
-#   $r->print("1,1,5: ".join(',',&drop(1,1,5,@debugarray)).'<br />');
-#
-#   $r->print("0,0,7: ".join(',',&drop(0,0,7,@debugarray)).'<br />');
-#   $r->print("1,0,7: ".join(',',&drop(1,0,7,@debugarray)).'<br />');
-#   $r->print("0,1,7: ".join(',',&drop(0,1,7,@debugarray)).'<br />');
-#   $r->print("1,1,7: ".join(',',&drop(1,1,7,@debugarray)).'<br />');
-
 }
 
 #
@@ -598,21 +617,23 @@ sub process_category_edits {
 #
 
 sub output_category_table {
-    my ($r,$cangrade,$navmaps,%categories)=@_;
+    my ($r,$cangrade,$navmaps,$output,%categories)=@_;
     
     my $totalweight=0;
     my $totalpoints=0;
 
-    $r->print(&Apache::loncommon::start_data_table());
+    if ($output) { 
+       $r->print(&Apache::loncommon::start_data_table());
 #
-    &output_category_table_header($r,$cangrade);
+       &output_category_table_header($r,$cangrade);
+    }
 #
     my @order=split(/\,/,$categories{'order'});
 #
     my %performance=&dumpdata($navmaps);
     my $maxpos=$#order;
     for (my $i=0;$i<=$maxpos;$i++) {
-        my ($correct,$possible,$type,$weight)=&output_and_calc_category($r,$cangrade,$navmaps,$order[$i],$i,$maxpos,\%performance,1,%categories);
+        my ($correct,$possible,$type,$weight)=&output_and_calc_category($r,$cangrade,$navmaps,$order[$i],$i,$maxpos,\%performance,$output,%categories);
         unless ($possible) { next; }
         $totalpoints+=$weight*$correct/$possible;
         $totalweight+=$weight;
@@ -621,9 +642,10 @@ sub output_category_table {
     my $perc=0;
     if ($totalweight) { $perc=100.*$totalpoints/$totalweight; }
 
-    &bottom_line_category($r,$cangrade,$perc);
-#
-    $r->print(&Apache::loncommon::end_data_table());
+    if ($output) { 
+        &bottom_line_category($r,$cangrade,$perc); 
+        $r->print(&Apache::loncommon::end_data_table());
+    }
     return $perc;
 }
 
@@ -649,14 +671,15 @@ sub output_category_table_header {
 
 sub output_and_calc_category {
     my ($r,$cangrade,$navmaps,$id,$currentpos,$maxpos,$performance,$output,%categories)=@_;
+    
+    if ($output) { $r->print("\n".&Apache::loncommon::start_data_table_row()); }
 
-    my $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/");
-    my %lt=&Apache::lonlocal::texthash(
+    if ($output && $cangrade) {
+        my $iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/");
+        my %lt=&Apache::lonlocal::texthash(
            'up' => 'Move Up',
            'dw' => 'Move Down');
-    if ($output) { $r->print("\n".&Apache::loncommon::start_data_table_row()); }
 
-    if ($output && $cangrade) {
         $r->print(<<ENDMOVE);
 <td>
 <div class="LC_docs_entry_move">