Index: openacs-4/packages/edit-this-page/www/etp-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/edit-this-page/www/etp-edit.tcl	24 Sep 2001 17:24:13 -0000	1.1
+++ openacs-4/packages/edit-this-page/www/etp-edit.tcl	18 Dec 2001 19:28:00 -0000	1.2
@@ -62,6 +62,15 @@
     append widget "</select>\n"
 } elseif {$type == "string" && [regexp -nocase {(rows|cols)} $html]} {
     set widget "<textarea name=\"$attribute\" $html>$value</textarea>\n"
+} elseif {$type == "date"} {
+    if [empty_string_p $value] {
+	set widget [ad_dateentrywidget datevalue]
+    } else {
+	# Put the date back into YYYY-MM-DD format
+	set date_format [etp::get_application_param date_format]
+	set value [db_string transform_date ""]
+	set widget [ad_dateentrywidget datevalue $value]
+    }
 } else {
     set widget "<input type=\"text\" name=\"$attribute\" value=\"$value\" $html>\n"
 }