--- loncom/lonnet/perl/lonnet.pm 2005/12/09 00:08:51 1.685 +++ loncom/lonnet/perl/lonnet.pm 2005/12/19 21:03:53 1.686 @@ -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 @@ sub clean_filename { } # --------------- 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: +# or /adm/notfound.html if failure to upload occurse sub userfileupload {