Index: openacs-4/packages/news-aggregator-portlet/tcl/news-aggregator-admin-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator-portlet/tcl/news-aggregator-admin-portlet-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-aggregator-portlet/tcl/news-aggregator-admin-portlet-procs.tcl	28 Aug 2003 09:41:58 -0000	1.2
@@ -0,0 +1,82 @@
+ad_library {
+
+    Procedures to support the news aggregator admin portlet
+
+    @creation-date Mar 2003
+    @author simon@bcuni.net
+
+}
+
+namespace eval news_aggregator_admin_portlet {}
+
+ad_proc -private news_aggregator_admin_portlet::get_my_name {
+} {
+    return "news_aggregator_admin_portlet"
+}
+
+
+
+ad_proc -public news_aggregator_admin_portlet::get_pretty_name {
+} {
+    return "News Aggregator Administration"
+}
+
+
+
+ad_proc -private news_aggregator_admin_portlet::my_package_key {
+} {
+    return "news-aggregator-portlet"
+}
+
+
+
+ad_proc -public news_aggregator_admin_portlet::link {
+} {
+    return ""
+}
+
+
+
+ad_proc -public news_aggregator_admin_portlet::add_self_to_page {
+    {-portal_id:required}
+    {-page_name ""}
+    {-package_id:required}
+} {
+    Adds a news-aggregator admin PE to the given portal
+    
+    @param portal_id The page to add self to
+    @param package_id The package_id of the news-aggregator package
+    
+    @return element_id The new element's id
+} {
+    return [portal::add_element_parameters \
+                -portal_id $portal_id \
+                -portlet_name [get_my_name] \
+                -key package_id \
+                -value $package_id
+           ]
+}
+
+
+
+ad_proc -public news_aggregator_admin_portlet::remove_self_from_page {
+    {-portal_id:required}
+} {
+    Removes a news-aggregator admin PE from the given page
+} {
+    portal::remove_element \
+        -portal_id $portal_id \
+        -portlet_name [get_my_name]
+}
+
+
+
+ad_proc -public news_aggregator_admin_portlet::show {
+    cf
+} {
+    portal::show_proc_helper \
+        -package_key [my_package_key] \
+        -config_list $cf \
+        -template_src "news-aggregator-admin-portlet"
+    
+}