version 1.124, 2004/05/06 18:28:16
|
version 1.125, 2004/05/06 20:34:06
|
Line 326 sub editor {
|
Line 326 sub editor {
|
|
|
my $newpos=$ENV{'form.newpos'}-1; |
my $newpos=$ENV{'form.newpos'}-1; |
my $currentpos=$ENV{'form.currentpos'}-1; |
my $currentpos=$ENV{'form.currentpos'}-1; |
$r->print('Sorting '.$idx.': '.$currentpos.' -> '.$newpos); |
my $i; |
|
my @neworder=(); |
|
if ($newpos>$currentpos) { |
|
# moving stuff up |
|
for ($i=0;$i<$currentpos;$i++) { |
|
$neworder[$i]=$Apache::lonratedt::order[$i]; |
|
} |
|
for ($i=$currentpos;$i<$newpos;$i++) { |
|
$neworder[$i]=$Apache::lonratedt::order[$i+1]; |
|
} |
|
$neworder[$newpos]=$Apache::lonratedt::order[$currentpos]; |
|
for ($i=$newpos+1;$i<=$#Apache::lonratedt::order;$i++) { |
|
$neworder[$i]=$Apache::lonratedt::order[$i]; |
|
} |
|
} else { |
|
# moving stuff down |
|
for ($i=0;$i<$newpos;$i++) { |
|
$neworder[$i]=$Apache::lonratedt::order[$i]; |
|
} |
|
$neworder[$newpos]=$Apache::lonratedt::order[$currentpos]; |
|
for ($i=$newpos+1;$i<$currentpos+1;$i++) { |
|
$neworder[$i]=$Apache::lonratedt::order[$i-1]; |
|
} |
|
for ($i=$currentpos+1;$i<=$#Apache::lonratedt::order;$i++) { |
|
$neworder[$i]=$Apache::lonratedt::order[$i]; |
|
} |
|
} |
|
@Apache::lonratedt::order=@neworder; |
} |
} |
# store the changed version |
# store the changed version |
|
|