[LON-CAPA-cvs] cvs: loncom /homework grades.pm

[banghart]

banghart		Thu Oct 11 20:03:12 2007 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  	Saving work in progress. Move view codes to Grade/Manage
  	Scantron Forms. Needs to be put in table and dressed up.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.455 loncom/homework/grades.pm:1.456
--- loncom/homework/grades.pm:1.455	Thu Oct 11 19:18:46 2007
+++ loncom/homework/grades.pm	Thu Oct 11 20:03:11 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.455 2007/10/11 23:18:46 banghart Exp $
+# $Id: grades.pm,v 1.456 2007/10/12 00:03:11 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,6 +35,7 @@
 use Apache::lonhtmlcommon;
 use Apache::lonnavmaps;
 use Apache::lonhomework;
+use Apache::lonpickcode;
 use Apache::loncoursedata;
 use Apache::lonmsg();
 use Apache::Constants qw(:common);
@@ -4897,7 +4898,7 @@
   </table>
 $grading_menu_button
 SCANTRONFORM
-
+    &Apache::lonpickcode::code_list($r,1);
     return
 }
 
@@ -7226,12 +7227,6 @@
                    name => &mt('Grade/Manage Scantron Forms'),
                    short_description => 
             &mt('')});
-    $fields{'command'} = 'codelist';
-    $url = &Apache::lonhtmlcommon::build_url('/adm/pickcode',\%fields);
-    push (@menu, { url => $url,
-                   name => &mt('View Saved CODEs'),
-                   short_description => 
-            &mt('')});
     $fields{'command'} = 'verify';
     $url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
     push (@menu, { url => "",