--- loncom/interface/londocs.pm	2006/05/01 19:37:33	1.226
+++ loncom/interface/londocs.pm	2006/05/12 16:47:35	1.227
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.226 2006/05/01 19:37:33 albertel Exp $
+# $Id: londocs.pm,v 1.227 2006/05/12 16:47:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -221,7 +221,7 @@ sub dumpcourse {
 	    $r->print('</select>');
 	}
 	my $title=$origcrsdata{'description'};
-	$title=~s/\s+/\_/gs;
+	$title=~s/[\/\s]+/\_/gs;
 	$title=&clean($title);
 	$r->print('<h3>'.&mt('Folder in Construction Space').'</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
 	&tiehash();