Index: openacs-4/packages/random-photo-portlet/www/random-photo-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/random-photo-portlet/www/random-photo-portlet.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/random-photo-portlet/www/random-photo-portlet.tcl	10 Jun 2004 18:03:13 -0000	1.1
+++ openacs-4/packages/random-photo-portlet/www/random-photo-portlet.tcl	25 May 2005 16:41:18 -0000	1.2
@@ -16,16 +16,10 @@
 
 if [empty_string_p $random_comm_id] {
 # If the user is in "My Space"
-
-    set comm_list [db_list select_all_communities "*SQL*"] 
-    set random_comm_pos [expr { int(rand()*[llength $comm_list])}]
-    set random_comm_id [lindex $comm_list $random_comm_pos]
-
+    set random_comm_id [db_list communities "*SQL*"]
 }
 
-set users_list [db_list "members" "*SQL*"]
-set random_user_pos [expr { int(rand()*[llength $users_list])}]
-set random_user_id [lindex $users_list $random_user_pos] 
+set random_user_id [db_list "members" "*SQL*"]
 
 if ![db_0or1row "get_member_info" "*SQL*"] {
 set user_p 0