Index: openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info 23 Jan 2006 08:04:43 -0000 1.46
+++ openacs-4/packages/dotlrn-ecommerce/dotlrn-ecommerce.info 30 Jan 2006 02:56:08 -0000 1.47
@@ -27,21 +27,25 @@
-
+
+
+
+
+
@@ -62,11 +66,7 @@
-
-
-
-
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
+ }
+ }
}
}