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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 -N --- /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# + + + + + + 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 -N --- /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 -N --- /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 -N --- /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 -N --- /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 +} +