[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface londocs.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2017-08-28 3:57:04
Message-ID: cvsraeburn1503892624 () cvsserver
[Download RAW message or body]
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,'');
}
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic