Index: openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl	1 Sep 2005 12:23:21 -0000	1.20
+++ openacs-4/packages/dotlrn-ecommerce/tcl/apm-callback-procs.tcl	30 Jan 2006 02:56:08 -0000	1.21
@@ -157,6 +157,18 @@
 		    0 \
 		    number
 	    }
+	    0.1d23 0.1d24 {
+		# check for missing guest rels
+		# add them
+		foreach user_id [db_list get_missing_rels "select du.user_id from
+                dotlrn_users du left join
+                dotlrn_guest_status dg
+                on du.user_id=dg.user_id
+                where dg.guest_p is null"] {
+		    # for now I am assuming NON-GUEST
+		    dotlrn_privacy::set_user_guest_p -user_id $user_id -value f
+		}
+	    }
     	}
 }