loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.25, 2004/02/17 15:23:53	version 1.26, 2004/03/31 05:24:00
Line 165 sub phasetwo {	Line 165 sub phasetwo {
# target is the full filesystem path of the destination file.	# target is the full filesystem path of the destination file.
my $base = &File::Basename::basename($fn);	my $base = &File::Basename::basename($fn);
my $path = &File::Basename::dirname($fn);	my $path = &File::Basename::dirname($fn);
$base = &HTML::Entities::encode($base);	$base = &HTML::Entities::encode($base,'<>&"');
my $url = $path."/".$base;	my $url = $path."/".$base;
&Debug($r, "URL is now ".$url);	&Debug($r, "URL is now ".$url);
my $datatoken=$ENV{'form.datatoken'};	my $datatoken=$ENV{'form.datatoken'};