--- loncom/homework/grades.pm	2007/10/11 23:18:46	1.455
+++ loncom/homework/grades.pm	2007/10/12 00:03:11	1.456
@@ -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::loncommon;
 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 @@ SCANTRONFORM
   </table>
 $grading_menu_button
 SCANTRONFORM
-
+    &Apache::lonpickcode::code_list($r,1);
     return
 }
 
@@ -7226,12 +7227,6 @@ sub grading_menu {
                    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 => "",