[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[raeburn]

raeburn		Mon Aug 28 03:57:04 2017 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - undef($navmap) before calling mark_hash_old() so &tiehash('write') can
    tie %hash, to store $hash{'old'}.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.637 loncom/interface/londocs.pm:1.638
--- loncom/interface/londocs.pm:1.637	Sun Aug 27 02:36:49 2017
+++ loncom/interface/londocs.pm	Mon Aug 28 03:57:04 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.637 2017/08/27 02:36:49 raeburn Exp $
+# $Id: londocs.pm,v 1.638 2017/08/28 03:57:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5678,6 +5678,7 @@
 	  undef($hadchanges);
           $uploadphase = &process_file_upload(\$upload_output,$coursenum,$coursedom,
                                               \%allfiles,\%codebase,$context,$crstype);
+          undef($navmap);
 	  if ($hadchanges) {
 	      &mark_hash_old();
 	  }
@@ -6476,9 +6477,11 @@
           if ($error) {
              $r->print('<p><span class="LC_error">'.$error.'</span></p>');
           }
-          if ($hadchanges) {
-             &mark_hash_old();
-          }
+	  unless (&is_hash_old()) {
+              if ($hadchanges) {
+                  &mark_hash_old();
+              }
+	  }
 
           &changewarning($r,'');
         }