--- loncom/interface/londocs.pm	2010/08/25 00:12:38	1.437
+++ loncom/interface/londocs.pm	2010/10/27 01:00:38	1.439
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.437 2010/08/25 00:12:38 raeburn Exp $
+# $Id: londocs.pm,v 1.439 2010/10/27 01:00:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1720,7 +1720,7 @@ sub process_file_upload {
 # probably the only place in the system where this should be "1"
         my $newidx=&LONCAPA::map::getresidx();
         $destination .= $newidx;
-        my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination,
+        my $url=&Apache::lonnet::userfileupload('uploaddoc','coursedoc',$destination,
 						$parseaction,$allfiles,
 						$codebase);
         my $ext='false';
@@ -1781,7 +1781,7 @@ sub process_secondary_uploads {
     }
     $destination .= $newidx;
     my ($url,$filename);
-    $url=&Apache::lonnet::userfileupload($formname.$num,1,$destination);
+    $url=&Apache::lonnet::userfileupload($formname.$num,'coursedoc',$destination);
     ($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});
     return $filename;
 }
@@ -2971,7 +2971,7 @@ CHBO
 	$fileupload
 	<br />
 	$lt{'title'}:<br />
-	<input type="text" size="50" name="comment" />
+	<input type="text" size="80" name="comment" />
 	$uploadtag
 	<input type="hidden" name="cmd" value="upload_default" />
 	<br />