loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'};