Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.729, 2008/12/31 23:15:42 | version 1.730, 2009/01/08 19:37:48 |
---|---|
Line 9934 sub get_annotation { | Line 9934 sub get_annotation { |
} | } |
sub clean_symb { | sub clean_symb { |
my ($symb) = @_; | my ($symb,$delete) = @_; |
&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) { |
delete($env{'request.enc'}); | |
} | |
return ($symb,$enc); | return ($symb,$enc); |
} | } |