loncom/lonnet/perl/lonrep.pm - diff

Return to lonrep.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.4, 2000/10/05 21:34:59	version 1.5, 2001/06/14 17:54:04
Line 6	Line 6
# 6/16,6/18 Gerd Kortemeyer)	# 6/16,6/18 Gerd Kortemeyer)
# 6/18,6/21,6/26,6/28,6/29,6/30,	# 6/18,6/21,6/26,6/28,6/29,6/30,
# 7/2,7/3,7/9,7/10,7/12,	# 7/2,7/3,7/9,7/10,7/12,
# 01/06,01/14,10/5 Gerd Kortemeyer	# 01/06,01/14,10/5,
	# 06/14/01 Gerd Kortemeyer

package Apache::lonrep;	package Apache::lonrep;

Line 22 sub handler {	Line 23 sub handler {
return OK;	return OK;
} else {	} else {
my $filename=$r->filename.$r->path_info;	my $filename=$r->filename.$r->path_info;
	if ($filename=~/\/$/) { return OK; }
if (-e "$filename.in.transfer") {	if (-e "$filename.in.transfer") {
sleep 10;	sleep 10;
$r->filename($filename);	$r->filename($filename);