Index: openacs-4/packages/news/www/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/news/www/preview.tcl	29 Oct 2002 08:01:14 -0000	1.6
+++ openacs-4/packages/news/www/preview.tcl	18 Nov 2002 17:59:10 -0000	1.7
@@ -105,7 +105,10 @@
 if { $news_admin_p == 1 } {
     
     set publish_date_ansi "$publish_date(year)-$publish_date(month)-$publish_date(day)"
-    set archive_date_ansi "$archive_date(year)-$archive_date(month)-$archive_date(day)"    
+    set archive_date_ansi "$archive_date(year)-$archive_date(month)-$archive_date(day)"
+
+    set publish_date_pretty [lc_time_fmt $publish_date_ansi "%x"]
+    set archive_date_pretty [lc_time_fmt $archive_date_ansi "%x"]
     
     if { [dt_interval_check $archive_date_ansi $publish_date_ansi] >= 0 } {
 	ad_return_error "[_ news.Scheduling_Error]" \