Index: openacs.org-dev/www/templates/widgets/sites.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/templates/widgets/sites.tcl,v
diff -u -r1.2 -r1.3
--- openacs.org-dev/www/templates/widgets/sites.tcl	8 Aug 2002 16:49:14 -0000	1.2
+++ openacs.org-dev/www/templates/widgets/sites.tcl	14 Aug 2002 13:04:51 -0000	1.3
@@ -1,10 +1,18 @@
+# this is an ugly hack just to get the total # of sites.
+# I must know that # to calculate the random offset...
+# this probably costs too much when there are many sites. (olah)
 
+etp::get_content_items -package_id 3173 -result_name sites
+set total [template::multirow size sites]
+
 set n_sites 6
 set sites_limit [expr $n_sites + 1]
 
+set groups [expr $total / $n_sites]
+set offset [expr [ns_rand $groups] * $groups]
 
 etp::get_page_attributes
 etp::get_content_items
 
-etp::get_content_items -package_id 3894 -result_name sites -limit $sites_limit
-#etp::get_content_items -package_id 3173 -result_name sites -limit $sites_limit
+etp::get_content_items -package_id 3894 -result_name sites -limit "$sites_limit OFFSET $offset"
+#etp::get_content_items -package_id 3173 -result_name sites -limit "$sites_limit OFFSET $offset"