Index: openacs-4/packages/acs-tcl/tcl/defs-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/defs-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/defs-procs.xql	25 Mar 2010 01:02:16 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.xql	20 Nov 2017 15:25:18 -0000	1.4
@@ -38,4 +38,14 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="ad_record_query_string.query_string_record">      
+    <querytext>
+      insert
+      into query_strings 
+      (query_date, query_string, subsection, n_results, user_id)
+      values
+      (current_timestamp, :query_string, :subsection, :n_results, :user_id)
+    </querytext>
+  </fullquery>
+
 </queryset>