loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.13, 2002/08/24 03:56:58	version 1.14, 2002/09/10 02:31:26
Line 59 use Apache::loncacc;	Line 59 use Apache::loncacc;
use Apache::loncommon();	use Apache::loncommon();
use Apache::Log();	use Apache::Log();
use Apache::lonnet;	use Apache::lonnet;
	use HTML::Entities();

my $DEBUG=0;	my $DEBUG=0;

Line 159 sub phasetwo {	Line 160 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 = Apache::lonnet::escape($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'};