loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.23, 2002/02/09 01:38:54	version 1.24, 2002/04/09 06:01:56
Line 153 sub getEffectiveUrl {	Line 153 sub getEffectiveUrl {
# Remove trailing / strings (?)	# Remove trailing / strings (?)

$fn=~s/\/[^\/]+$//;	$fn=~s/\/[^\/]+$//;
} else { # If no form is defined, use request filename.	} else {
$fn=$r->filename();	# If no form is defined, use request filename.
	$fn = $r->filename();
	my $lonDocRoot=$r->dir_config('lonDocRoot');
	if ( $fn =~ /$lonDocRoot/ ) {
	#internal authentication, needs fixup.
	$fn = $r->uri(); # non users do not get the full path request
	# through SCRIPT_FILENAME
	$fn=~s\|^/~(\w+)\|/home/$1/public_html\|;
	}
}	}
return $fn;	return $fn;
}	}