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

banghart lon-capa-cvs-allow@mail.lon-capa.org
Thu, 11 Oct 2007 22:34:34 -0000


banghart		Thu Oct 11 18:34:34 2007 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  	Saving work in progress. Style. Rework grading menu. Send
  	proper command to pickcode.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.453 loncom/homework/grades.pm:1.454
--- loncom/homework/grades.pm:1.453	Thu Oct 11 17:27:50 2007
+++ loncom/homework/grades.pm	Thu Oct 11 18:34:33 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.453 2007/10/11 21:27:50 banghart Exp $
+# $Id: grades.pm,v 1.454 2007/10/11 22:34:33 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -529,8 +529,8 @@
 	my @stu_groups = split(/,/,$group);
 	if (@getgroup) {
 	    my $exclude = 1;
-	    foreach my $grp(@getgroup) {
-	        foreach my $stu_group(@stu_groups) {
+	    foreach my $grp (@getgroup) {
+	        foreach my $stu_group (@stu_groups) {
 	            if ($stu_group eq $grp) {
 	                $exclude = 0;
     	            } 
@@ -6325,7 +6325,7 @@
 sub scantron_get_correction {
     my ($r,$i,$scan_record,$scan_config,$line,$error,$arg)=@_;
 
-#FIXME in the case of a duplicated ID the previous line, probaly need
+#FIXME in the case of a duplicated ID the previous line, probably need
 #to show both the current line and the previous one and allow skipping
 #the previous one or the current one
 
@@ -7223,7 +7223,13 @@
     $fields{'command'} = 'scantron_selectphase';
     $url = &Apache::lonhtmlcommon::build_url('grades/',\%fields);
     push (@menu, { url => $url,
-                   name => &mt('Grade Scantron Forms'),
+                   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';
@@ -7233,18 +7239,6 @@
                    name => &mt('Verify Receipt'),
                    short_description => 
             &mt('')});
-    $fields{'command'} = 'manage';
-    $url = &Apache::lonhtmlcommon::build_url('/adm/helper/resettimes.helper',\%fields);
-    push (@menu, { url => $url,
-                   name => &mt('Manage Access Times'),
-                   short_description => 
-            &mt('')});
-    $fields{'command'} = 'view';
-    $url = &Apache::lonhtmlcommon::build_url('/adm/pickcode',\%fields);
-    push (@menu, { url => $url,
-                   name => &mt('View Saved CODEs'),
-                   short_description => 
-            &mt('')});
 
     #
     # Create the menu
@@ -8036,7 +8030,6 @@
 
 sub handler {
     my $request=$_[0];
-
     &reset_caches();
     if ($env{'browser.mathml'}) {
 	&Apache::loncommon::content_type($request,'text/xml');