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

[www]

www		Wed Mar  9 01:46:08 2011 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
  Log:
  Direct move of categories
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.72 loncom/interface/lonquickgrades.pm:1.73
--- loncom/interface/lonquickgrades.pm:1.72	Wed Mar  9 00:35:57 2011
+++ loncom/interface/lonquickgrades.pm	Wed Mar  9 01:46:08 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.72 2011/03/09 00:35:57 www Exp $
+# $Id: lonquickgrades.pm,v 1.73 2011/03/09 01:46:08 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -471,6 +471,11 @@
         %categories=&move_down_category($1,$cangrade,%categories);
     } elsif ($cmd=~/^delcat\_(.+)$/) {
         %categories=&del_category($1,$cangrade,%categories);
+    }
+# Move to a new position
+    my $moveid=$env{'form.storemove'};
+    if ($moveid) {
+        %categories=&move_category($moveid,$cangrade,$env{'form.newpos_'.$moveid},%categories);
     } 
     return %categories;
 }