Index: openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl	16 Jun 2004 23:06:45 -0000	1.4
+++ openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl	2 Jul 2004 20:35:37 -0000	1.5
@@ -252,6 +252,8 @@
 
 	set group_source $source
 
+	set member_list [list]
+
 	foreach member_node [xml_node_get_children_by_name $mem_node "member"] {
 
 	    set sourcedidtype [xml_get_child_node_attribute_by_path $member_node {sourcedid} "sourcedidtype"]
@@ -278,8 +280,25 @@
 		-roletype $roletype \
 		-operation $operation
 
+	    lappend member_list $id
+
 	}
 
+	if {$operation == "snapshot"} {
+	    set non_users_list [db_list get_non_sent_users { *SQL* }]
+	    set member_list [join $member_list ", "]
+	    foreach id $non_users_list {
+		ims_enterprise::ims_dotlrn::membership::membership \
+		    -job_id $job_id \
+		    -class_instance_key $class_instance_key \
+		    -community_id $community_id \
+		    -id $id \
+		    -authority_id $authority_id \
+		    -roletype $roletype \
+		    -operation delete
+	    }
+	}
+
     }
 }