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>'); |
} |
} |