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.' - '. |