loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.224, 2002/05/17 19:52:42	version 1.225, 2002/05/17 21:02:45
Line 2763 sub hreflocation {	Line 2763 sub hreflocation {
unless (($file=~/^http:\/\//i) \|\| ($file=~/^\//)) {	unless (($file=~/^http:\/\//i) \|\| ($file=~/^\//)) {
my $finalpath=filelocation($dir,$file);	my $finalpath=filelocation($dir,$file);
$finalpath=~s/^\/home\/httpd\/html//;	$finalpath=~s/^\/home\/httpd\/html//;
	$finalpath=~s-/home/(\w+)/public_html/-/~$1/-;
return $finalpath;	return $finalpath;
} else {	} else {
return $file;	return $file;