loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.78, 2011/03/25 01:34:49	version 1.79, 2011/03/25 22:06:34
Line 497 sub process_category_edits {	Line 497 sub process_category_edits {
%categories=&del_category_content($1,$cangrade,$2,%categories);	%categories=&del_category_content($1,$cangrade,$2,%categories);
} elsif ($cmd=~/^newrule\_(.+)$/) {	} elsif ($cmd=~/^newrule\_(.+)$/) {
%categories=&add_calculation_rule($1,$cangrade,':',%categories);	%categories=&add_calculation_rule($1,$cangrade,':',%categories);
	} elsif ($cmd=~/^delrule\_(.+)\_\_\_\_\_\_(.*)$/) {
	%categories=&del_calculation_rule($1,$cangrade,$2,%categories);
}	}
# Move to a new position	# Move to a new position
my $moveid=$env{'form.storemove'};	my $moveid=$env{'form.storemove'};
Line 615 ENDMOVE	Line 617 ENDMOVE
my ($code,$value)=split(/\:/,$calcrule);	my ($code,$value)=split(/\:/,$calcrule);
$r->print(&pretty_prt_rule($cangrade,$id,$code,$value));	$r->print(&pretty_prt_rule($cangrade,$id,$code,$value));
if ($cangrade) {	if ($cangrade) {
$r->print(' <a href="javascript:storecmd(\'delcalc_'.$id.'______'.$code.'\');">'.&mt('Delete').'</a>');	$r->print(' <a href="javascript:storecmd(\'delrule_'.$id.'______'.$code.'\');">'.&mt('Delete').'</a>');
}	}
$r->print('</li>');	$r->print('</li>');
}	}