Index: openacs-4/packages/contacts/www/admin/group-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/group-map.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/www/admin/group-map.tcl	21 Jun 2007 20:06:42 -0000	1.5
+++ openacs-4/packages/contacts/www/admin/group-map.tcl	27 Jun 2007 23:55:37 -0000	1.6
@@ -11,7 +11,7 @@
     {return_url "./"}
 } -validate {
     action_valid -requires {action} {
-        if { [lsearch [list map unmap makedefault] $action] < 0 } {
+        if { [lsearch [list map unmap makedefault notificationson notificationsoff] $action] < 0 } {
             ad_complain "[_ contacts.lt_the_action_supplied_i]"
         }
     }
@@ -82,6 +82,16 @@
             update contact_groups set default_p = 't' where package_id = :package_id and group_id = :group_id
         }
     }
+    notificationson {
+	db_dml notificationson {
+	    update contact_groups set notifications_p = 't' where package_id = :package_id and group_id = :group_id
+	}
+    }
+    notificationsoff {
+	db_dml notificationsoff {
+	    update contact_groups set notifications_p = 'f' where package_id = :package_id and group_id = :group_id
+	}
+    }
 }