loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.68, 2002/01/08 21:14:53	version 1.69, 2002/01/09 20:45:16
Line 187 sub urlfixup {	Line 187 sub urlfixup {
unless ($url) { return ''; }	unless ($url) { return ''; }
#javascript code needs no fixing	#javascript code needs no fixing
if ($url =~ /^javascript:/i) { return $url; }	if ($url =~ /^javascript:/i) { return $url; }
	if ($url =~ /^mailto:/i) { return $url; }
#internal document links need no fixing	#internal document links need no fixing
if ($url =~ /^\#/) { return $url; }	if ($url =~ /^\#/) { return $url; }
my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/);	my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/);