Index: openacs-4/packages/rules/www/approve-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/www/Attic/approve-users.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/rules/www/approve-users.tcl	20 Dec 2004 19:38:43 -0000	1.2
+++ openacs-4/packages/rules/www/approve-users.tcl	21 Dec 2004 21:55:15 -0000	1.3
@@ -17,7 +17,7 @@
     for { set i 0} { $i < $rules_count } { incr i } {
         set r_id [lindex $rha_id $i]
         set group_id [db_string community { *SQL* }] 
-        if { $group_id != -1 } {
+        if { $group_id != 0 } {
         set user_id  [db_string user { *SQL* }] 
         set today [db_string today { *SQL* }]
         if {![dotlrn::user_is_community_member_p  -user_id $user_id   -community_id $group_id]} {