[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 19 Dec 2005 21:03:53 -0000


albertel		Mon Dec 19 16:03:53 2005 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - adding some docs to the userfileupload
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.685 loncom/lonnet/perl/lonnet.pm:1.686
--- loncom/lonnet/perl/lonnet.pm:1.685	Thu Dec  8 19:08:51 2005
+++ loncom/lonnet/perl/lonnet.pm	Mon Dec 19 16:03:53 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.685 2005/12/09 00:08:51 raeburn Exp $
+# $Id: lonnet.pm,v 1.686 2005/12/19 21:03:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1280,8 +1280,15 @@
 }
 
 # --------------- Take an uploaded file and put it into the userfiles directory
-# input: name of form element, coursedoc=1 means this is for the course
-# output: url of file in userspace
+# input: $formname - the contents of the file are in $env{"form.$formname"}
+#                    the desired filenam is in $env{"form.$formname"}
+#        $coursedoc - if true up to the current course
+#                     if false
+#        $subdir - directory in userfile to store the file into
+#        $parser, $allfiles, $codebase - unknown
+#
+# output: url of file in userspace, or error: <message> 
+#             or /adm/notfound.html if failure to upload occurse
 
 
 sub userfileupload {