Index: openacs-4/packages/news-portlet/www/news-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/news-portlet.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-portlet/www/news-portlet.adp	25 Feb 2002 20:36:57 -0000	1.1
@@ -0,0 +1,8 @@
+<if @shaded_p@ ne "t">
+
+  @data@
+
+</if>
+<else>
+&nbsp;
+</else>
Index: openacs-4/packages/news-portlet/www/news-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/news-portlet.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-portlet/www/news-portlet.tcl	25 Feb 2002 20:36:57 -0000	1.1
@@ -0,0 +1,50 @@
+#
+# /news-portlet/www/news-portlet.tcl
+#
+# distributed under the terms of the GNU GPL version 2
+#
+# arjun@openforce.net
+#
+# The logic for the news portlet
+#
+# $Id: news-portlet.tcl,v 1.1 2002/02/25 20:36:57 arjun Exp $
+# 
+
+
+array set config $cf	
+set shaded_p $config(shaded_p)
+
+set data ""
+    
+# Should be a list already! XXX rename me!
+set list_of_instance_ids $config(community_id)
+
+if {[llength $list_of_instance_ids] == 1} {
+    set one_instance_p 1
+} else {
+    set one_instance_p 0
+}
+
+foreach instance_id $list_of_instance_ids {
+    
+    if {[db_string news_items_count {} -default 0]} {
+        set has_items_p 1
+    } else {
+        set has_items_p 0
+    }
+    
+    if {$has_items_p} {
+        set parent_name [site_nodes::get_parent_name -instance_id $instance_id]
+        set parent_url [dotlrn_community::get_url_from_package_id -package_id $instance_id]
+        
+        append data "$parent_name<P>"
+        
+        db_foreach news_items_select {} {
+            append data "&nbsp;&nbsp;<a href=${parent_url}item?item_id=$item_id>$publish_title</a> <small>$publish_date</small><P>"
+        }
+    }
+
+    if {!$has_items_p && $one_instance_p} {
+        append data "<small>No news items</small>"
+    }
+}
Index: openacs-4/packages/news-portlet/www/news-portlet.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-portlet/www/Attic/news-portlet.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/news-portlet/www/news-portlet.xql	25 Feb 2002 20:36:57 -0000	1.1
@@ -0,0 +1,30 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+  <fullquery name="news_items_select">
+    <querytext>
+     select item_id,
+     package_id,
+     publish_title,
+     publish_date
+     from   news_items_approved
+     where publish_date < sysdate 
+     and (archive_date is null or archive_date > sysdate)      
+     and    package_id = :instance_id
+     order  by publish_date desc, item_id desc      
+    </querytext> 
+  </fullquery>
+
+  <fullquery name="news_items_count">
+    <querytext>
+     select count(*) 
+     from   news_items_approved
+     where publish_date < sysdate 
+     and (archive_date is null or archive_date > sysdate)      
+     and    package_id = :instance_id
+    </querytext> 
+  </fullquery>
+
+</queryset>
+