version 1.72, 2011/03/09 00:35:57
|
version 1.73, 2011/03/09 01:46:08
|
Line 471 sub process_category_edits {
|
Line 471 sub process_category_edits {
|
%categories=&move_down_category($1,$cangrade,%categories); |
%categories=&move_down_category($1,$cangrade,%categories); |
} elsif ($cmd=~/^delcat\_(.+)$/) { |
} elsif ($cmd=~/^delcat\_(.+)$/) { |
%categories=&del_category($1,$cangrade,%categories); |
%categories=&del_category($1,$cangrade,%categories); |
|
} |
|
# Move to a new position |
|
my $moveid=$env{'form.storemove'}; |
|
if ($moveid) { |
|
%categories=&move_category($moveid,$cangrade,$env{'form.newpos_'.$moveid},%categories); |
} |
} |
return %categories; |
return %categories; |
} |
} |