Index: openacs-4/packages/dotlrn/www/communities-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/communities-chunk.tcl,v
diff -u -N -r1.11 -r1.11.2.1
--- openacs-4/packages/dotlrn/www/communities-chunk.tcl 8 Aug 2006 21:26:23 -0000 1.11
+++ openacs-4/packages/dotlrn/www/communities-chunk.tcl 1 Mar 2007 17:09:10 -0000 1.11.2.1
@@ -49,11 +49,38 @@
append filter "_by_type"
}
-if {![exists_and_not_null referer]} {
- set referer "./"
+db_multirow -extend {query referer} communities $filter {} {
+ if {![exists_and_not_null referer]} {
+ set referer "./"
+ }
+ set query $filter
}
-db_multirow communities $filter {}
+template::list::create \
+ -name communities \
+ -multirow communities \
+ -elements {
+ pretty_name {
+ label "\#dotlrn.clubs_pretty_plural\#"
+ link_url_eval {$url}
+ }
+ member_p {
+ label "\#dotlrn.Actions\#"
+ display_template {
+
+
+
+
+
+
+
+
+
+
+ }
+ }
+ }
+
ad_return_template