loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.124, 2004/05/06 18:28:16
+version 1.125, 2004/05/06 20:34:06
  Line 326  sub editor {
  		    my $newpos=$ENV{'form.newpos'}-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