[LON-CAPA-cvs] cvs: loncom(version_2_8_X) /interface loncommon.pm

[raeburn]

raeburn		Thu Jan  8 19:51:29 2009 EDT

  Modified files:              (Branch: version_2_8_X)
    /loncom/interface	loncommon.pm 
  Log:
  - Backport 1.730, 1.731.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.692.2.10 loncom/interface/loncommon.pm:1.692.2.11
--- loncom/interface/loncommon.pm:1.692.2.10	Thu Dec 25 04:45:35 2008
+++ loncom/interface/loncommon.pm	Thu Jan  8 19:51:28 2009
@@ -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 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);
 }