Index: openacs-4/packages/dotfolio/www/admin/group-del.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/www/admin/group-del.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotfolio/www/admin/group-del.tcl	2 Aug 2005 01:54:52 -0000	1.3
+++ openacs-4/packages/dotfolio/www/admin/group-del.tcl	29 Sep 2005 15:53:54 -0000	1.4
@@ -10,12 +10,28 @@
     group_id:integer,notnull
 }
 
-db_transaction {
-    # Delete entry from dotfolio_group_adviser_map.
-    db_dml delete_group {}
+set context [list [list groups "[_ dotfolio.groups]"] "[_ dotfolio.delete_group]"]
 
-    # Delete group.
-    group::delete $group_id
-}
-
-ad_returnredirect "groups"
+ad_form \
+    -name del_group \
+    -cancel_url "groups" \
+    -export { group_id } \
+    -form {
+        {group_members:text(inform)  {label "[_ dotfolio.group_members]"}}
+        {prompt:text(inform) {label "[_ dotfolio.confirm]"} {value "[_ dotfolio.continue_with_delete_group]"}}
+    } \
+    -on_request {
+        set group_members [join [db_list get_member_names {}] "<br />"]
+    } \
+    -on_submit {
+        db_transaction {
+            # Delete entry from dotfolio_group_adviser_map.
+            db_dml delete_group {}
+            
+            # Delete group.
+            group::delete $group_id
+        }
+    } \
+    -after_submit {
+        ad_returnredirect "groups"
+    }