Index: openacs-4/packages/news/www/item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/news/www/item.tcl 2 Feb 2005 23:30:49 -0000 1.11
+++ openacs-4/packages/news/www/item.tcl 24 Feb 2005 18:03:05 -0000 1.12
@@ -16,8 +16,10 @@
context:onevalue
item_exist_p:onevalue
publish_title:onevalue
+ publish_lead:onevalue
publish_date:onevalue
publish_body:onevalue
+ publish_image:onevalue
html_p:onevalue
creator_link:onevalue
comments:onevalue
@@ -38,6 +40,7 @@
select item_id,
live_revision,
publish_title,
+ publish_lead,
html_p,
publish_date,
'' || item_creator || '' as creator_link
@@ -81,6 +84,14 @@
set comments ""
}
+ # get image info, if any
+ set image_id [news_get_image_id $item_id]
+ if {![empty_string_p $image_id]} {
+ set publish_image "image/$image_id"
+ } else {
+ set publish_image {}
+ }
+
if {[permission::permission_p -object_id $item_id -privilege write] } {
set edit_link "Revise"
} else {