[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 {