Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp	21 Jan 2002 07:47:09 -0000	1.1
@@ -0,0 +1,15 @@
+<a href=/dotlrn/members>Join/Drop a Class or Community Group</a>
+
+<table border=0 cellpadding=2 cellspacing=2 width=100%>
+<multiple name="communities">
+<tr>
+  <td>
+    <font face=arial,helvetica size=-1 color=black>
+    <a href=@communities.url@>@communities.community_key@ @communities.pretty_name@</a></td>
+    </font>
+</tr>  
+</multiple>
+
+</table>
+
+
Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/dotlrn-main-portlet.adp~,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.adp~	21 Jan 2002 07:47:09 -0000	1.1
@@ -0,0 +1,37 @@
+<if @config.shaded_p@ ne "t">
+
+  <table border=0 cellpadding=2 cellspacing=2 width=100%>
+
+  <multiple name="community">
+  <tr>
+  
+  <if @foo.type@ eq "Folder">
+
+      <td><a href=@foo.url@?folder_id=@foo.file_id@><img border=0 src=@foo.url@graphics/folder.gif width=15 height=13> @foo.name@</a>
+      </td>
+      <td><small>@foo.type@</small></td>
+
+      <if @foo.num@ lt 1 or @foo.num@ eq 0>
+        <td><small>@foo.num@ items</small></td>
+      </if>
+      <else>
+        <td><small>@foo.num@ item</small></td>
+
+      </else>
+  </if>
+  <else>
+
+    <td><a href=@foo.url@file?file_id=@foo.file_id@><img border=0 src=@foo.url@graphics/file.gif width=15 height=13> @foo.name@</a></td>
+    <td><small>File</small></td>
+    <td><a href=@foo.url@/download/@foo.name@?version_id=@foo.file_live_rev@><small>\[download\]</small></a></td>
+
+  </else>
+
+  </tr>  
+  </multiple>
+  
+  </table>
+                
+</if>
+
+
Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl	21 Jan 2002 07:47:09 -0000	1.1
@@ -0,0 +1,29 @@
+# dotlrn/www/dotlrn-main-portlet-procs.tcl
+ad_page_contract {
+    The display logic for the dotlrn main (Groups) portlet
+
+    @author Arjun Sanyal (arjun@openforce.net)
+    @cvs_id $Id: dotlrn-main-portlet.tcl,v 1.1 2002/01/21 07:47:09 oracle Exp $
+}
+
+array set config $cf        
+
+set user_id [ad_get_user_id]
+set list_of_communities [dotlrn_community::get_all_communities_by_user $user_id]
+set my_community_id [lindex $list_of_communities 0]
+
+db_multirow -local communities select_communities "   
+select dotlrn_communities.community_id,
+dotlrn_communities.community_type,
+dotlrn_communities.community_key,
+dotlrn_communities.pretty_name,
+dotlrn_communities.package_id
+from dotlrn_communities,
+dotlrn_member_rels_full
+where dotlrn_communities.community_id = dotlrn_member_rels_full.community_id
+and dotlrn_member_rels_full.user_id = :user_id" {
+#    ad_return_complaint 1 "aks [info locals] ${communities(package_id)}"
+    set communities(url) [dotlrn_community::get_url_from_package_id -package_id ${communities(package_id)} ]
+}
+
+ad_return_template
Index: openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl~
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/dotlrn-main-portlet.tcl~,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/dotlrn/www/dotlrn-main-portlet.tcl~	21 Jan 2002 07:47:09 -0000	1.1
@@ -0,0 +1,31 @@
+# dotlrn/www/dotlrn-main-portlet-procs.tcl
+ad_page_contract {
+    The display logic for the fs portlet
+
+    @author Arjun Sanyal (arjun@openforce.net)
+    @cvs_id $Id: dotlrn-main-portlet.tcl~,v 1.1 2002/01/21 07:47:09 oracle Exp $
+}
+
+array set config $cf        
+set user_id [ad_get_user_id]
+
+# This is not templated. OH NO. I am a horrible, horrible,
+# little man. (ben)
+
+set return_html "<table border=0 cellpadding=2 cellspacing=2 width=100%>"
+set communities [dotlrn_community::get_all_communities_by_user $user_id]
+
+foreach community $communities {
+    set url [dotlrn_community::get_url_from_package_id -package_id [lindex $community 4]]
+    set name [lindex $community 3]
+
+    append return_html "<tr><td><a href=\"${url}\"><b>${name}</b></a></td></tr>\n"
+}
+
+if {[dotlrn::user_can_browse_p $user_id]} {
+    append return_html "<tr><td><p></p></td></tr>\n"
+    append return_html "<tr><td><small><a href=\"all-communities\">\[Subscribe to a new community\]</a></small></td></tr>\n"
+}
+
+append return_html "</table>"
+return $return_html