version 1.5, 2002/07/31 15:23:55
|
version 1.6, 2002/08/01 15:26:23
|
Line 55 sub handler {
|
Line 55 sub handler {
|
# upload a file |
# upload a file |
if (($ENV{'form.uploaddoc.filename'}) && ($allowed)) { |
if (($ENV{'form.uploaddoc.filename'}) && ($allowed)) { |
my $id=time.'_'.$ENV{'user.name'}.'_'.$ENV{'user.domain'}; |
my $id=time.'_'.$ENV{'user.name'}.'_'.$ENV{'user.domain'}; |
my $url=&Apache::lonnet::userfileupload('uploaddoc'); |
# 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 $url=&Apache::lonnet::userfileupload('uploaddoc',1); |
if ($url=~/^error\:/) { |
if ($url=~/^error\:/) { |
} else { |
} else { |
my $comment=$ENV{'form.comment'}; |
my $comment=$ENV{'form.comment'}; |