--- loncom/interface/lonquickgrades.pm	2011/03/09 00:35:57	1.72
+++ loncom/interface/lonquickgrades.pm	2011/03/09 01:46:08	1.73
@@ -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 @@ sub process_category_edits {
         %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;
 }