[LON-CAPA-cvs] cvs: loncom /interface lonquickgrades.pm

[www]

www		Sat Jun  4 19:49:28 2011 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
  Log:
  Interface to download category grading
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.100 loncom/interface/lonquickgrades.pm:1.101
--- loncom/interface/lonquickgrades.pm:1.100	Fri Jun  3 01:07:22 2011
+++ loncom/interface/lonquickgrades.pm	Sat Jun  4 19:49:28 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.100 2011/06/03 01:07:22 www Exp $
+# $Id: lonquickgrades.pm,v 1.101 2011/06/04 19:49:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,6 +36,7 @@
 use Apache::lonnet;
 use Apache::grades;
 use Apache::loncoursedata;
+use Apache::lonstudentassessment;
 
 sub handler {
     my $r = shift;
@@ -90,6 +91,39 @@
     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'}; }
@@ -107,8 +141,8 @@
         $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>');
         }