|
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__ |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonenc.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom