Index: openacs-4/packages/rules/www/admin/approve-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rules/www/admin/Attic/approve-users.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/rules/www/admin/approve-users.tcl	8 Dec 2004 21:24:35 -0000	1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+    Delete  rules
+} {
+    rha_id:integer,notnull,multiple
+    
+}
+ 
+    set rules_count [llength $rha_id]
+    for { set i 0} { $i < $rules_count } { incr i } {
+        set r_id [lindex $rha_id $i]
+        set group_id [db_string community { select group_id from rule_history_actions where rha_id=:r_id}] 
+        set user_id  [db_string user { select user_id from rule_history_actions where rha_id=:r_id}] 
+        set today [db_string today { select to_date (sysdate,'YYYY-MM-DD') from dual}]
+        dotlrn_community::add_user $group_id $user_id
+          
+		db_transaction {
+                 
+	    db_dml add_history { update rule_history_actions set processing_date=:today, approved_p='y' where rha_id=:r_id} 
+		}
+
+     }
+
+    ad_returnredirect "admin-request?interval=all&specific_date=today"