Index: openacs-4/packages/news-includelet/news-includelet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/news-includelet.info,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/news-includelet.info 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,29 @@
+
+
+
+
+ News Includelet
+ News Includelets
+ f
+ f
+
+
+ OpenACS
+ 2008-08-13
+ OpenACS
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.AR_EG.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.AR_EG.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.AR_EG.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ لا أخبار
+ الأخبار
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.AR_LB.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.AR_LB.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.AR_LB.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ أضفْ خبراً
+ إدارة الأخبار
+ أدرْ الأخبارَ
+ لا أخبار
+ الأخبار
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.TH_TH.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.TH_TH.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.TH_TH.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ ไม่มีข่าว
+ ข่าว
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.ast_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.ast_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.ast_ES.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Axuntar una Noticia
+ Alministraci�n de Noticies
+ Xestionar Noticies
+ Nun hai Noticies
+ Noticies
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.da_DK.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.da_DK.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.da_DK.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Tilf�j et Nyhedsemne
+ Adminstration af Nyheder
+ Administr�r Nyheder
+ Ingen Nyheder
+ Nyheder
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.de_DE.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.de_DE.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Neue Ank�ndigung erstellen
+ Ank�ndigungen verwalten
+ Ank�ndigungen verwalten
+ Keine Ank�ndigungen vorhanden
+ Ank�ndigungen
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.el_GR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.el_GR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.el_GR.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ Δεν υπάρχουν διαθέσιμα νέα
+ Νέα
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.en_US.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.en_US.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,12 @@
+
+
+
+ Add a News Item
+ Displays news admin includelet
+ News Administration
+ Displays news includelet
+ Manage News
+ No News
+ News
+ Read more...
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.es_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.es_ES.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Agregar una Noticia
+ Administraci�n de Noticias
+ Administrar Noticias
+ Sin Noticias
+ Noticias
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.fi_FI.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.fi_FI.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.fi_FI.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Lisää uutinen
+ Uutisten ylläpito
+ Hallinnoi uutisia
+ Ei uutisia
+ Uutiset
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.fr_FR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.fr_FR.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.fr_FR.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Ajouter une nouvelle
+ Administration des nouvelles
+ Administrer les nouvelles
+ Aucune nouvelle
+ Nouvelles
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.gl_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.gl_ES.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.gl_ES.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Enviar Nova Noticia
+ Administraci�n de Noticias
+ Administrar Noticias
+ Ningunha Noticia
+ Noticias
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.hu_HU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.hu_HU.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.hu_HU.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,5 @@
+
+
+
+ Hírek
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.it_IT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.it_IT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.it_IT.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Aggiungi una news
+ Amministrazione news
+ Amministra le news
+ Nessuna News
+ News
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.ja_JP.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.ja_JP.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.ja_JP.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ ニュースはありません
+ ニュース
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.ko_KR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.ko_KR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.ko_KR.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ 뉴스 항목 추가
+ 뉴스 관리
+ 뉴스 관리
+ 뉴스가 없습니다.
+ 뉴스
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.ms_my.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.ms_my.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.ms_my.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Tambah Bahan Berita
+ Penyeliaan Berita
+ Urus Berita
+ Tiada Berita
+ Berita
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.nl_NL.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.nl_NL.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.nl_NL.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Toevoegen Bericht
+ Beheer Nieuws
+ Beheer Nieuws
+ Geen Nieuws
+ Nieuws
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.no_NO.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.no_NO.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.no_NO.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Legg inn nyhet
+ Nyhetsadministrasjon
+ Organiser nyheter
+ Ingen nyheter
+ Nyheter
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.pl_PL.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.pl_PL.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.pl_PL.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Dodaj Wiadomość
+ Administracja Wiadomościami
+ Zarządzaj Wiadomościami
+ Brak Wiadomości
+ Wiadomości
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.pt_BR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.pt_BR.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.pt_BR.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Entre Nova Not�cia
+ Administra��o de Not�cias
+ Gerencia Not�cias
+ Nenhuma Not�cia
+ Not�cias
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.pt_PT.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.pt_PT.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.pt_PT.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Adicionar uma Noticia
+ Administra��o das Noticias
+ Gerir Noticias
+ N�o h� Noticias
+ Noticias
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.ru_RU.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.ru_RU.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.ru_RU.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ Добавить Новость
+ Администрирование Новостей
+ Управление Новостями
+ Новостей нет
+ Новости
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.sh_HR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.sh_HR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.sh_HR.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ Nema novosti
+ Novosti
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.sv_SE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.sv_SE.ISO-8859-1.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.sv_SE.ISO-8859-1.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,9 @@
+
+
+
+ L�gg till en nyhet
+ Nyhetsadministration
+ Hantera nyheter
+ Inga nyheter
+ Nyheter
+
Index: openacs-4/packages/news-includelet/catalog/news-includelet.tr_TR.utf-8.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/catalog/news-includelet.tr_TR.utf-8.xml,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/catalog/news-includelet.tr_TR.utf-8.xml 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,6 @@
+
+
+
+ Haber Yok
+ Haberler
+
Index: openacs-4/packages/news-includelet/lib/news-admin-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/lib/news-admin-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/lib/news-admin-includelet.adp 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,5 @@
+
+
Index: openacs-4/packages/news-includelet/lib/news-admin-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/lib/news-admin-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/lib/news-admin-includelet.tcl 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,3 @@
+set user_id [ad_conn user_id]
+set url [site_node::get_url_from_object_id -object_id $package_id]
+ad_return_template
Index: openacs-4/packages/news-includelet/lib/news-includelet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/lib/news-includelet-oracle.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/lib/news-includelet-oracle.xql 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,27 @@
+
+
+
+oracle8.1.6
+
+
+
+ select news_items_approved.package_id,
+ acs_object.name(apm_package.parent_id(news_items_approved.package_id)) as parent_name,
+ (select site_node.url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = news_items_approved.package_id) as url,
+ news_items_approved.item_id,
+ news_items_approved.publish_title,
+ to_char(news_items_approved.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+ from news_items_approved
+ where news_items_approved.publish_date < sysdate
+ and (news_items_approved.archive_date >= sysdate or news_items_approved.archive_date is null)
+ and news_items_approved.package_id = :package_id
+ order by parent_name,
+ news_items_approved.publish_date desc,
+ news_items_approved.publish_title
+
+
+
+
+
Index: openacs-4/packages/news-includelet/lib/news-includelet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/lib/news-includelet-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/lib/news-includelet-postgresql.xql 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,27 @@
+
+
+
+postgresql7.1
+
+
+
+ select news_items_approved.package_id,
+ acs_object__name(apm_package__parent_id(news_items_approved.package_id)) as parent_name,
+ (select site_node__url(site_nodes.node_id)
+ from site_nodes
+ where site_nodes.object_id = news_items_approved.package_id) as url,
+ news_items_approved.item_id,
+ news_items_approved.publish_title,
+ to_char(news_items_approved.publish_date, 'YYYY-MM-DD HH24:MI:SS') as publish_date_ansi
+ from news_items_approved
+ where news_items_approved.publish_date < current_timestamp
+ and (news_items_approved.archive_date >= current_timestamp or news_items_approved.archive_date is null)
+ and news_items_approved.package_id = :package_id
+ order by parent_name,
+ news_items_approved.publish_date desc,
+ news_items_approved.publish_title
+
+
+
+
+
Index: openacs-4/packages/news-includelet/lib/news-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/lib/news-includelet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/lib/news-includelet.adp 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,24 @@
+
+ #news-includelet.No_News#
+
+
+
+
+
+
+
+
+
+
+ @news_items.publish_title@
+ (@news_items.publish_date@)
+
+
+
+
+
+
+
Index: openacs-4/packages/news-includelet/lib/news-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/lib/news-includelet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/lib/news-includelet.tcl 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,4 @@
+db_multirow -extend { publish_date view_url } news_items select_news_items {} {
+ set publish_date [lc_time_fmt $publish_date_ansi "%x"]
+ set view_url [export_vars -base "${url}item" { item_id }]
+}
Index: openacs-4/packages/news-includelet/lib/summary.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/lib/summary.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/lib/summary.adp 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,6 @@
+@publish_title@
+
+@publish_body;noquote@
+@more_link;noquote@
+Contributed by @item_creator@
+
Index: openacs-4/packages/news-includelet/lib/summary.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/lib/summary.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/lib/summary.tcl 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,55 @@
+# live view of a news item in its active revision
+set item_exist_p [db_0or1row one_item "
+select item_id,
+ live_revision,
+ publish_title,
+ html_p,
+ publish_date,
+ creation_user,
+ item_creator
+from news_items_live_or_submitted
+where item_id = :item_id"]
+
+set creator_url [acs_community_member_url -user_id $creation_user]
+
+if { $item_exist_p } {
+
+ # workaround to get blobs with >4000 chars into a var, content.blob_to_string fails!
+ # when this'll work, you get publish_body by selecting 'publish_body' directly from above view
+ #
+ # RAL: publish_body is already snagged in the 1st query above for postgres.
+ # CERM: This work around is not used here, so this may not work for postgres.
+ #
+
+ set publish_body [db_string get_content "select content
+ from cr_revisions
+ where revision_id = :live_revision"]
+
+
+#currently not using comments in the summary but someone might want to change the template so they are available.
+ if { [ad_parameter SolicitCommentsP "news" 0] &&
+ [ad_permission_p $item_id general_comments_create] } {
+ set comment_link [general_comments_create_link $item_id "[ad_conn package_url]item?item_id=$item_id"]
+ set comments [general_comments_get_comments -print_content_p 1 -print_attachments_p 1 \
+ $item_id "[ad_conn package_url]item?item_id=$item_id"]
+ } else {
+ set comment_link ""
+ set comments ""
+ }
+
+
+} else {
+ set context_bar {}
+ set title "Error"
+}
+
+#This is a summary in the portlet we don't want it to be too long.
+
+set more_link ""
+if { [string length $publish_body] > 1000 } {
+ set publish_body [string_truncate -len 1000 -- $publish_body]
+ set more_link "
» [_ news-includelet.Read_more]"
+}
+
+set publish_body [ad_convert_to_html -html_p $html_p $publish_body]
+
Index: openacs-4/packages/news-includelet/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-includelet/tcl/apm-callback-procs.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-includelet/tcl/apm-callback-procs.tcl 13 Aug 2008 23:15:12 -0000 1.1
@@ -0,0 +1,42 @@
+ad_library {
+
+ Forums Portlet Install library
+
+ Procedures that deal with installing, instantiating, mounting.
+
+ @creation-date 2003-12-31
+ @author Don Baccus
+ @cvs-id
+}
+
+namespace eval news_includelet::install {}
+
+ad_proc -private news_includelet::install::package_install {} {
+ Package installation callback proc
+} {
+
+ # Admin includelet
+ layout::includelet::new \
+ -name news_admin_includelet \
+ -description #news-includelet.admin_description# \
+ -title #news-includelet.admin_pretty_name# \
+ -application news \
+ -template /packages/news-includelet/lib/news-admin-includelet \
+ -required_privilege admin
+
+ # User includelet
+ layout::includelet::new \
+ -name news_includelet \
+ -description #news-includelet.description# \
+ -title #news-includelet.pretty_name# \
+ -application news \
+ -template /packages/news-includelet/lib/news-includelet
+}
+
+ad_proc -private news_includelet::install::package_uninstall {} {
+ Package uninstallation callback proc
+} {
+ portal::includelet::delete -name news_includelet
+ portal::includelet::delete -name news_admin_includelet
+}
+