loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.86, 2011/05/21 01:02:27	version 1.87, 2011/05/21 01:29:43
Line 539 sub process_category_edits {	Line 539 sub process_category_edits {
} elsif ($cmd=~/^delcat\_(.+)$/) {	} elsif ($cmd=~/^delcat\_(.+)$/) {
%categories=&del_category($1,$cangrade,%categories);	%categories=&del_category($1,$cangrade,%categories);
} elsif ($cmd=~/^addcont\_(.+)$/) {	} 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\_(.+)\_\_\_\_\_\_(.+)$/) {	} elsif ($cmd=~/^delcont\_(.+)\_\_\_\_\_\_(.+)$/) {
%categories=&del_category_content($1,$cangrade,$2,%categories);	%categories=&del_category_content($1,$cangrade,$2,%categories);
} elsif ($cmd=~/^newrule\_(.+)$/) {	} elsif ($cmd=~/^newrule\_(.+)$/) {
Line 844 sub set_category_rules {	Line 844 sub set_category_rules {
sub add_category_content {	sub add_category_content {
my ($id,$cangrade,$newcontent,%categories)=@_;	my ($id,$cangrade,$newcontent,%categories)=@_;
unless ($cangrade) { return %categories; }	unless ($cangrade) { return %categories; }
	&Apache::lonnet::logthis("In here $newcontent");
my %newcontent=($newcontent => 1);	my %newcontent=($newcontent => 1);
foreach my $current (split(/\,/,$categories{$id.'_content'})) {	foreach my $current (split(/\,/,$categories{$id.'_content'})) {
$newcontent{$current}=1;	$newcontent{$current}=1;