version 1.23, 2008/03/17 09:51:40
|
version 1.25, 2011/09/30 15:58:05
|
Line 165 sub encrypt_ref {
|
Line 165 sub encrypt_ref {
|
next if (!$value); |
next if (!$value); |
next if ($value =~ /^\w+:/); # explict javascript: or http: link |
next if ($value =~ /^\w+:/); # explict javascript: or http: link |
my $href=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$value); |
my $href=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$value); |
if ($href !~ /^http:/) { |
if ($href !~ /^https?\:/) { |
# IE really wants an extension |
# IE really wants an extension |
my ($extension) = ($href =~ m/(\.[^.]*)$/); |
my ($extension) = ($href =~ m/(\.[^.]*)$/); |
$href = &Apache::lonenc::encrypted($href,$force_enc); |
my $newhref = &Apache::lonenc::encrypted($href,$force_enc); |
$href .= $extension; |
unless ($newhref eq $href) { |
|
$href = $newhref.$extension; |
|
} |
} |
} |
$token->[2]->{$name}=$href; |
$token->[2]->{$name}=$href; |
} |
} |