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

[raeburn]

raeburn		Wed Jan 31 14:17:44 2018 EDT

  Modified files:              
    /loncom/interface	lonexttool.pm 
  Log:
  - For gradable external tools which are using slot control, need to store
    self check-in result for slots without proctor check-in.
  
  
Index: loncom/interface/lonexttool.pm
diff -u loncom/interface/lonexttool.pm:1.17 loncom/interface/lonexttool.pm:1.18
--- loncom/interface/lonexttool.pm:1.17	Thu Jan  4 12:37:49 2018
+++ loncom/interface/lonexttool.pm	Wed Jan 31 14:17:44 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Launch External Tool Provider (LTI)
 #
-# $Id: lonexttool.pm,v 1.17 2018/01/04 12:37:49 raeburn Exp $
+# $Id: lonexttool.pm,v 1.18 2018/01/31 14:17:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -483,10 +483,7 @@
         @targets = ('web');
     }
     foreach my $target (@targets) {
-        undef(%Apache::lonhomework::results);
-        undef(%Apache::lonhomework::history);
-        %Apache::lonhomework::history =
-            &Apache::lonnet::restore($symb,$courseid,$udom,$uname);
+        &Apache::structuretags::initialize_storage($symb);
         &Apache::lonhomework::set_show_problem_status(&Apache::lonnet::EXT('resource.0.problemstatus'));
         my ($accessmsg,$slot_name,$slot,$ipused);
         ($status,$accessmsg,$slot_name,$slot,$ipused) =
@@ -517,6 +514,9 @@
                 }
             }
         }
+        if (keys(%Apache::lonhomework::results)) {
+            &Apache::structuretags::finalize_storage();
+        }
     }
     return ($status,$result,$resource_due);
 }