Return to lonenc.pm CVS log | Up to [LON-CAPA] / loncom |
version 1.25, 2011/09/30 15:58:05 | version 1.26, 2020/03/15 23:04:05 |
---|---|
Line 116 sub remove_noise { | Line 116 sub remove_noise { |
} | } |
sub encrypted { | sub encrypted { |
my ($uri,$force_enc) = @_; | my ($uri,$force_enc,$cid) = @_; |
if (!$force_enc && $env{'request.role.adv'}) { return($uri); } | if (!$force_enc && $env{'request.role.adv'}) { return($uri); } |
my $seed=&encryptseed(); | my $seed=&encryptseed($cid); |
unless ($seed) { | unless ($seed) { |
return $uri; | return $uri; |
} | } |