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 -N -r1.7 -r1.8
--- openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl	21 Jul 2004 18:20:54 -0000	1.7
+++ openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl	23 Jul 2004 21:35:53 -0000	1.8
@@ -286,8 +286,8 @@
 	}
 
 	if {$operation == "snapshot"} {
-	    set non_users_list [db_list get_non_sent_users { *SQL* }]
 	    set member_list [join $member_list ", "]
+	    set non_users_list [db_list get_non_sent_users { *SQL* }]
 	    foreach id $non_users_list {
 		ims_enterprise::ims_dotlrn::membership::membership \
 		    -job_id $job_id \
@@ -296,7 +296,7 @@
 		    -id $id \
 		    -authority_id $authority_id \
 		    -roletype $roletype \
-		    -operation delete
+		    -operation delete $id
 	    }
 	}