loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.438, 2010/09/23 21:25:43	version 1.439, 2010/10/27 01:00:38
Line 1720 sub process_file_upload {	Line 1720 sub process_file_upload {
# probably the only place in the system where this should be "1"	# probably the only place in the system where this should be "1"
my $newidx=&LONCAPA::map::getresidx();	my $newidx=&LONCAPA::map::getresidx();
$destination .= $newidx;	$destination .= $newidx;
my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination,	my $url=&Apache::lonnet::userfileupload('uploaddoc','coursedoc',$destination,
$parseaction,$allfiles,	$parseaction,$allfiles,
$codebase);	$codebase);
my $ext='false';	my $ext='false';
Line 1781 sub process_secondary_uploads {	Line 1781 sub process_secondary_uploads {
}	}
$destination .= $newidx;	$destination .= $newidx;
my ($url,$filename);	my ($url,$filename);
$url=&Apache::lonnet::userfileupload($formname.$num,1,$destination);	$url=&Apache::lonnet::userfileupload($formname.$num,'coursedoc',$destination);
($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});	($filename) = ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/\Q$destination\E/(.+)$});
return $filename;	return $filename;
}	}