[LON-CAPA-cvs] cvs: loncom /interface londocs.pm
albertel
lon-capa-cvs-allow@mail.lon-capa.org
Mon, 10 Sep 2007 21:41:06 -0000
albertel Mon Sep 10 17:41:06 2007 EDT
Modified files:
/loncom/interface londocs.pm
Log:
- BUG#5418 not getting reinit button after uploading to DOCS
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.297 loncom/interface/londocs.pm:1.298
--- loncom/interface/londocs.pm:1.297 Fri Aug 31 16:27:54 2007
+++ loncom/interface/londocs.pm Mon Sep 10 17:41:02 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.297 2007/08/31 20:27:54 albertel Exp $
+# $Id: londocs.pm,v 1.298 2007/09/10 21:41:02 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2570,9 +2570,13 @@
if (($env{'form.uploaddoc.filename'}) &&
($env{'form.cmd'}=~/^upload_(\w+)/)) {
# Process file upload - phase one - upload and parse primary file.
+ undef($hadchanges);
$upload_result = &process_file_upload(\$upload_output,$coursenum,
$coursedom,\%allfiles,
\%codebase,$1);
+ if ($hadchanges) {
+ &mark_hash_old();
+ }
if ($upload_result eq 'phasetwo') {
$r->print($upload_output);
}