![]() ![]() | ![]() |
version 1.729, 2008/12/31 23:15:42 | version 1.731, 2009/01/08 19:46:43 |
---|---|
Line 9934 sub get_annotation { | Line 9934 sub get_annotation { |
} | } |
sub clean_symb { | sub clean_symb { |
my ($symb) = @_; | my ($symb,$delete_enc) = @_; |
&Apache::lonenc::check_decrypt(\$symb); | &Apache::lonenc::check_decrypt(\$symb); |
my $enc = $env{'request.enc'}; | my $enc = $env{'request.enc'}; |
delete($env{'request.enc'}); | if ($delete_enc) { |
delete($env{'request.enc'}); | |
} | |
return ($symb,$enc); | return ($symb,$enc); |
} | } |