Index: openacs-4/packages/assessment/tcl/as-section-data-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-section-data-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/tcl/as-section-data-procs.xql	18 Jan 2005 12:42:37 -0000	1.1
+++ openacs-4/packages/assessment/tcl/as-section-data-procs.xql	22 Nov 2017 09:51:20 -0000	1.2
@@ -1,15 +1,22 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="as::section_data::new.section_data_exists">
-      <querytext>
+  <fullquery name="as::section_data::new.section_data_exists">
+    <querytext>
+      select 1
+      from as_section_data
+      where session_id = :session_id
+      and section_id = :section_id
+    </querytext>
+  </fullquery>
 
-	select 1
-	from as_section_data
-	where session_id = :session_id
-	and section_id = :section_id
+  <fullquery name="as::section_data::new.update_creation_time">
+    <querytext>
+      update as_section_data
+      set creation_datetime = current_timestamp
+      where session_id = :session_id
+      and section_id = :section_id
+    </querytext>
+  </fullquery>
 
-      </querytext>
-</fullquery>
-
 </queryset>