Index: openacs-4/packages/survey/tcl/survey-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs.tcl,v
diff -u -r1.14.2.5 -r1.14.2.6
--- openacs-4/packages/survey/tcl/survey-procs.tcl 23 Mar 2021 12:44:56 -0000 1.14.2.5
+++ openacs-4/packages/survey/tcl/survey-procs.tcl 26 Jul 2023 16:31:36 -0000 1.14.2.6
@@ -170,7 +170,19 @@
if {$edit_previous_response_p == "t"} {
set user_value $date_answer
}
- append html [ad_dateentrywidget $element_name $user_value]
+ lassign [split [string range $user_value 0 9] -] year month day
+ append html [subst -nocommands {
+
+
+ }]
}
"select" {