--- loncom/interface/lonquickgrades.pm 2011/05/04 01:49:08 1.85
+++ 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.85 2011/05/04 01:49:08 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,&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;