version 1.20, 2006/12/27 17:11:08
|
version 1.22, 2007/10/05 18:33:29
|
Line 56 sub encryptseed {
|
Line 56 sub encryptseed {
|
$seed=substr($seed.$seed,0,32); |
$seed=substr($seed.$seed,0,32); |
return pack("H32",$seed); |
return pack("H32",$seed); |
} else { |
} else { |
return; |
return pack("H32",1); |
} |
} |
} |
} |
|
|
Line 151 sub encrypt_ref {
|
Line 151 sub encrypt_ref {
|
my $html; |
my $html; |
if ($force_enc || $env{'request.enc'}) { |
if ($force_enc || $env{'request.enc'}) { |
while (my ($name,$value)= each(%{ $elements })) { |
while (my ($name,$value)= each(%{ $elements })) { |
if (!$value) { next; } |
next if (!$value); |
|
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 !~ /^http:/) { |
# IE really wants an extension |
# IE really wants an extension |