[LON-CAPA-cvs] cvs: loncom(version_2_10_X) /interface londocs.pm

[raeburn]

raeburn		Tue Nov  9 18:19:08 2010 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	londocs.pm 
  Log:
  - Backport 1.438, 1.439.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.434.2.1 loncom/interface/londocs.pm:1.434.2.2
--- loncom/interface/londocs.pm:1.434.2.1	Mon Aug 16 20:52:11 2010
+++ loncom/interface/londocs.pm	Tue Nov  9 18:19:08 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.434.2.1 2010/08/16 20:52:11 raeburn Exp $
+# $Id: londocs.pm,v 1.434.2.2 2010/11/09 18:19:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1717,10 +1717,9 @@
             $destination .=  $2.'/';
         }
 # 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 $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 +1780,7 @@
     }
     $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 +2970,7 @@
 	$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 />