[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);
           }