@@ -72,10 +72,11 @@
   -rebuild-db             : bring the database schema up to date
   -rollup                 : fill run (set by :runname)  with latest test(s) from
                             prior runs with same keys
   -rename-run <runb>      : rename run (set by :runname) to <runb>, requires keys
   -update-meta            : update the tests metadata for all tests
+  -extract-ods            : extract an open document spreadsheet from the database
 
 Helpers
   -runstep stepname  ...  : take remaining params as comand and execute as stepname
                             log will be in stepname.log. Best to put command in quotes
   -logpro file            : with -exec apply logpro file to stepname.log, creates
@@ -117,10 +118,11 @@
 			":value"
 			":expected_value"
 			":tol"
 			":units"
 			;; misc
+			"-extract-ods"
 			"-debug" ;; for *verbosity* > 2
 			) 
 		 (list  "-h"
 		        "-force"
 		        "-xterm"
@@ -312,10 +314,24 @@
      "rollup tests" 
      (lambda (db keys keynames keyvallst)
        (let ((n (args:get-arg "-rollup")))
 	 (runs:rollup-run db keys)))))
 
+;;======================================================================
+;; Extract a spreadsheet from the runs database
+;;======================================================================
+
+(if (args:get-arg "-extract-ods")
+    (general-run-call
+     "-extract-ods"
+     "Make ods spreadsheet"
+     (lambda (db keys keynames keyvallst)
+       (let ((outputfile (args:get-arg "-extract-ods"))
+	     (runspatt   (args:get-arg ":runname"))
+	     (keyvalalist (keys->alist keys "%")))
+	 (db:extract-ods-file db outputfile keyvalalist (if runspatt runspatt "%"))))))
+
 ;;======================================================================
 ;; run one test
 ;;======================================================================
 
 ;; 1. find the config file