--- loncom/interface/londocs.pm	2004/05/06 17:55:03	1.123
+++ loncom/interface/londocs.pm	2004/05/11 06:12:45	1.126
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.123 2004/05/06 17:55:03 www Exp $
+# $Id: londocs.pm,v 1.126 2004/05/11 06:12:45 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -321,33 +321,57 @@ sub editor {
 		    &Apache::lonratedt::delparameter($idx,'parameter_encrypturl');
 		}
 
-		($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence');
-		if ($fatal) {
-		    $r->print('<p><font color="red">'.$errtext.'</font></p>');
-		    return;
-		}
 		if ($ENV{'form.newpos'}) {
 # change order
 
 		    my $newpos=$ENV{'form.newpos'}-1;
-		    $r->print('Sorting '.$idx.' -> '.$newpos);
-		    ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence');
-		    if ($fatal) {
-			$r->print('<p><font color="red">'.$errtext.'</font></p>');
-			return;
+		    my $currentpos=$ENV{'form.currentpos'}-1;
+		    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
 
+		($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence');
+		if ($fatal) {
+		    $r->print('<p><font color="red">'.$errtext.'</font></p>');
+		    return;
+		}
+		
 	    }
+
 # upload a file, if present
            if (($ENV{'form.uploaddoc.filename'}) &&
                ($ENV{'form.cmd'}=~/^upload_(\w+)/)) {
 	    if ( ($folder=~/^$1/) || ($1 eq 'default') ) {
 # this is for a course, not a user, so set coursedoc flag
 # probably the only place in the system where this should be "1"
-	      my $url=&Apache::lonnet::userfileupload('uploaddoc',1);
+	      my $url=&Apache::lonnet::userfileupload('uploaddoc',1,'docs');
               my $ext='false';
               if ($url=~/^http\:\/\//) { $ext='true'; }
               $url=~s/\:/\&colon;/g;
@@ -499,6 +523,7 @@ sub entryline {
 	my $selectbox='';
 	if ($folder!~/^supplemental/) {
 	    $selectbox=
+		'<input type="hidden" name="currentpos" value="'.$incindex.'" />'.
 		'<select name="newpos" onChange="this.form.submit()">';
 	    for (my $i=1;$i<=$#Apache::lonratedt::order+1;$i++) {
 		if ($i==$incindex) {