version 1.9, 2004/12/20 19:26:53
|
version 1.10, 2005/01/19 18:16:35
|
Line 146 sub check_decrypt {
|
Line 146 sub check_decrypt {
|
return $str; |
return $str; |
} |
} |
|
|
|
sub encrypt_ref { |
|
my ($token,$elements)=@_; |
|
my $html; |
|
if ($ENV{'request.enc'}) { |
|
while (my ($name,$value)= each(%{ $elements })) { |
|
if (!$value) { next; } |
|
my $href=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$value); |
|
if ($href !~ /^http:/) { $href=&Apache::lonenc::encrypted($href); } |
|
$token->[2]->{$name}=$href; |
|
} |
|
$html = &Apache::edit::rebuild_tag($token); |
|
} else { |
|
$html = $token->[4]; |
|
} |
|
return $html; |
|
} |
1; |
1; |
__END__ |
__END__ |
|
|