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

[www]

www		Sat May 21 01:29:43 2011 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
  Log:
  Adding of resources working again
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.86 loncom/interface/lonquickgrades.pm:1.87
--- loncom/interface/lonquickgrades.pm:1.86	Sat May 21 01:02:27 2011
+++ loncom/interface/lonquickgrades.pm	Sat May 21 01:29:43 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.86 2011/05/21 01:02:27 www Exp $
+# $Id: lonquickgrades.pm,v 1.87 2011/05/21 01:29:43 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -539,7 +539,7 @@
     } elsif ($cmd=~/^delcat\_(.+)$/) {
         %categories=&del_category($1,$cangrade,%categories);
     } elsif ($cmd=~/^addcont\_(.+)$/) {
-        %categories=&add_category_content($1,$cangrade,$env{'form.addcont_'.$1.'_symb'},%categories);
+        %categories=&add_category_content($1,$cangrade,$env{'form.resourcesymb'},%categories);
     } elsif ($cmd=~/^delcont\_(.+)\_\_\_\_\_\_(.+)$/) {
         %categories=&del_category_content($1,$cangrade,$2,%categories);
     } elsif ($cmd=~/^newrule\_(.+)$/) {
@@ -844,6 +844,7 @@
 sub add_category_content {
     my ($id,$cangrade,$newcontent,%categories)=@_;
     unless ($cangrade) { return %categories; }
+    &Apache::lonnet::logthis("In here $newcontent");
     my %newcontent=($newcontent => 1);
     foreach my $current (split(/\,/,$categories{$id.'_content'})) {
         $newcontent{$current}=1;