Index: openacs-4/packages/assessment/www/asm-admin/results-export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-export.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/www/asm-admin/results-export.tcl	15 Apr 2005 17:26:46 -0000	1.5
+++ openacs-4/packages/assessment/www/asm-admin/results-export.tcl	18 Apr 2005 11:02:28 -0000	1.6
@@ -67,11 +67,14 @@
 	}
     }
     
-    if {![empty_string_p $start_time] && ![empty_string_p $end_time]} {
-	set date_sql [db_map restrict_completed_date]
-    } else {
-	set date_sql ""
+    set start_date_sql ""
+    set end_date_sql ""
+    if {![empty_string_p $start_time]} {
+	set start_date_sql [db_map restrict_start_date]
     }
+    if {![empty_string_p $end_time]} {
+	set end_date_sql [db_map restrict_end_date]
+    }
 
     set session_list ""
     db_foreach all_sessions {} {
@@ -107,6 +110,7 @@
     }
 } -after_submit {
      ns_set put [ad_conn outputheaders] Content-Disposition "attachment;filename=results.csv"
-     ns_return 200 "text/plain" "$csv_text"}
+     ns_return 200 "text/plain" "$csv_text"
+}
 
 ad_return_template