--- loncom/interface/loncommon.pm	2008/12/25 04:45:35	1.692.2.10
+++ loncom/interface/loncommon.pm	2009/01/08 19:51:28	1.692.2.11
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.692.2.10 2008/12/25 04:45:35 raeburn Exp $
+# $Id: loncommon.pm,v 1.692.2.11 2009/01/08 19:51:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9596,11 +9596,13 @@ sub get_annotation {
 }
 
 sub clean_symb {
-    my ($symb) = @_;
+    my ($symb,$delete_enc) = @_;
 
     &Apache::lonenc::check_decrypt(\$symb);
     my $enc = $env{'request.enc'};
-    delete($env{'request.enc'});
+    if ($delete_enc) {
+        delete($env{'request.enc'});
+    }
 
     return ($symb,$enc);
 }