--- loncom/interface/lonquickgrades.pm 2011/05/03 23:51:19 1.84 +++ loncom/interface/lonquickgrades.pm 2011/05/21 01:29:43 1.87 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Quick Student Grades Display # -# $Id: lonquickgrades.pm,v 1.84 2011/05/03 23:51:19 www Exp $ +# $Id: lonquickgrades.pm,v 1.87 2011/05/21 01:29:43 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -467,6 +467,7 @@ sub outputCategories { $r->print(&Apache::loncommon::resourcebrowser_javascript(). ''. ''. + ''. ''. ''); } @@ -538,7 +539,7 @@ sub process_category_edits { } 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\_(.+)$/) { @@ -653,8 +654,7 @@ ENDMOVE } $r->print(''); if ($cangrade) { - $r->print('
'.&Apache::loncommon::selectresource_link('quickform','addcont_'.$id.'_res',&mt('Add Problem or Folder')).'
'. - '"); + $r->print('
'.&Apache::loncommon::selectresource_link('quickform','addcont_'.$id,&mt('Add Problem or Folder')).'
'); } $r->print(''); @@ -844,6 +844,7 @@ sub set_category_rules { 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;