loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.34, 2001/08/11 18:06:25	version 1.35, 2001/08/11 18:51:40
Line 137 sub makeallowed {	Line 137 sub makeallowed {
}	}

sub urlfixup {	sub urlfixup {
return shift;	my ($url,$target)=@_;
	my ($host)=($url=~/(?:http\:\/\/)*([^\/]+)/);
	map {
	if ($_ eq $host) {
	$url=~s/^http\:\/\///;
	$url=~s/^$host//;
	}
	} values %Apache::lonnet::hostname;
	$url=~s/\~$cuname/res\/$cudom\/$cuname/;
	if ($target) {
	$target=~s/\/[^\/]+$//;
	$url=&Apache::lonnet::hreflocation($target,$url);
	}
	return $url;
}	}

sub publish {	sub publish {
Line 236 sub publish {	Line 249 sub publish {
map {	map {
if (defined($parms{$_})) {	if (defined($parms{$_})) {
my $oldurl=$parms{$_};	my $oldurl=$parms{$_};
my $newurl=&urlfixup($oldurl);	my $newurl=&urlfixup($oldurl,$target);
if ($newurl ne $oldurl) {	if ($newurl ne $oldurl) {
$parms{$_}=$newurl;	$parms{$_}=$newurl;
print $logfile 'URL: '.$tag.':'.$oldurl.' - '.	print $logfile 'URL: '.$tag.':'.$oldurl.' - '.