Index: openacs-4/packages/news/www/admin/revision-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/news/www/admin/revision-add.tcl	29 Oct 2002 08:01:15 -0000	1.5
+++ openacs-4/packages/news/www/admin/revision-add.tcl	24 Feb 2005 18:03:05 -0000	1.6
@@ -21,6 +21,7 @@
     publish_date:onevalue
     publish_date_desc:onevalue
     publish_title:onevalue
+    publish_lead:onevalue
     publish_body:onevalue
     html_p:onevalue
     archive_date:onevalue
@@ -38,7 +39,7 @@
     where item_id = :item_id
 }
 
-set title "[_ news.lt_One_Item_-_add_revisi]"
+set title "Add revision"
 set context [list $title]
 
 # get active revision of news item
@@ -48,6 +49,7 @@
     package_id,   
     revision_id,
     publish_title,
+    publish_lead,
     html_p,
     publish_date,
     NVL(archive_date, sysdate+[ad_parameter ActiveDays "news" 14]) as archive_date,
@@ -83,6 +85,8 @@
 set action "[_ news.Revision]"
 set hidden_vars [export_form_vars item_id action]
 
+set image_id [news_get_image_id $item_id]
+if {![empty_string_p $image_id]} { set image_url "../image/$image_id" }
 
 ad_return_template