--- loncom/interface/londocs.pm	2005/12/22 20:23:39	1.215
+++ loncom/interface/londocs.pm	2006/02/10 10:16:38	1.217.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.215 2005/12/22 20:23:39 albertel Exp $
+# $Id: londocs.pm,v 1.217.2.1 2006/02/10 10:16:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1373,7 +1373,7 @@ sub process_secondary_uploads {
     if (($folder eq 'default') || ($folder eq 'supplemental')) {
         $destination .= 'default/';
     } elsif ($folder =~ /^(default|supplemental)_(\d+)$/) {
-        $destination .=  $1.'/';
+        $destination .=  $2.'/';
     }
     $destination .= $newidx;
     my ($url,$filename);
@@ -1401,6 +1401,7 @@ sub entryline {
 	    $foldertitle;
     }
     $renametitle=~s/\&quot\;/\\\"/g;
+    $renametitle=~s/\\/\\\\/g;
     my $line='<tr>';
 # Edit commands
     my $container;
@@ -1588,7 +1589,7 @@ END
 	}
     }
     my $parameterset='&nbsp;';
-    if ($isfolder) {
+    if ($isfolder || $extension eq 'sequence') {
 	my $foldername=&Apache::lonnet::escape($foldertitle);
 	my $folderpath=$env{'form.folderpath'};
 	if ($folderpath) { $folderpath.='&' };
@@ -1666,6 +1667,7 @@ sub tiehash {
 sub untiehash {
     if ($hashtied) { untie %hash; }
     $hashtied=0;
+    return OK;
 }
 
 # --------------------------------------------------------------- check on this