[LON-CAPA-cvs] cvs: loncom /interface lonquickgrades.pm
www
www@source.lon-capa.org
Wed, 09 Mar 2011 01:46:08 -0000
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;
}