version 1.12, 2006/03/22 19:37:44
|
version 1.13, 2006/03/22 19:55:39
|
Line 149 sub check_decrypt {
|
Line 149 sub check_decrypt {
|
sub encrypt_ref { |
sub encrypt_ref { |
my ($token,$elements,$force_enc)=@_; |
my ($token,$elements,$force_enc)=@_; |
my $html; |
my $html; |
&Apache::lonnet::logthis("hrrm $force_enc"); |
|
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; } |
if (!$value) { next; } |