Index: openacs-4/packages/news/www/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.tcl,v
diff -u -N -r1.25 -r1.26
--- openacs-4/packages/news/www/preview.tcl	30 Dec 2009 23:13:36 -0000	1.25
+++ openacs-4/packages/news/www/preview.tcl	30 Dec 2009 23:22:31 -0000	1.26
@@ -96,6 +96,17 @@
 }
 set context [list $title]
 
+# DRB: not sure about the accuracy of this comment so am leaving this.
+# if we've come back from the image page, set up dates again
+if {[info exists publish_date_ansi] && [info exists archive_date_ansi]} {
+    set exp {([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})}
+    if { ![regexp $exp $publish_date_ansi match \
+               publish_date(year) publish_date(month) publish_date(day)]
+         || ![regexp $exp $archive_date_ansi match \
+                  archive_date(year) archive_date(month) archive_date(day)] } {
+        ad_return_complaint 1 "[_ news.Publish_archive_dates_incorrect]"
+    }
+}
 # deal with Dates, granularity is 'day'
 
 # with news_admin privilege fill in publish and archive dates