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.10 -r1.11
--- openacs-4/packages/edit-this-page/www/etp-edit.tcl	22 Oct 2003 15:44:53 -0000	1.10
+++ openacs-4/packages/edit-this-page/www/etp-edit.tcl	14 Feb 2004 16:31:52 -0000	1.11
@@ -114,10 +114,11 @@
     # usually we are creating a new revision
     set extra_sql ""
     if {[info exists datevalue]} {
-	set date_string $datevalue(date)
+	ns_log notice "DAVEB! new_data datevalue = $datevalue"
+	
 	# The date is given in YYYY-MM-DD.  Transform to desired format.
-	set date_format [etp::get_application_param date_format]
-	set value $date_string
+#	set date_format [etp::get_application_param date_format]
+	set value "[template::util::date::get_property year $datevalue]-[template::util::date::get_property month $datevalue]-[template::util::date::get_property day $datevalue]"
     } elseif {[string equal $widget "(richtext)"]} {
 	    set value [template::util::richtext get_property contents [set $element]]
 	    set mime_type [template::util::richtext get_property format [set $element]]
@@ -169,7 +170,6 @@
     ad_script_abort
 }
 
-
 set page_title "$attribute_title for page '$page_title'"
 
 if {$name == "index"} {