Index: openacs-4/packages/acs-subsite/www/admin/groups/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/one.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	10 Jan 2007 21:22:07 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	27 Oct 2014 16:39:51 -0000	1.7
@@ -8,7 +8,7 @@
     @creation-date 2000-12-05
     @cvs-id $Id$
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
 } -properties {
     context:onevalue
     group_id:onevalue
@@ -33,8 +33,8 @@
 }
 
 set user_id [ad_conn user_id]
-set write_p [ad_permission_p $group_id "write"]
-set admin_p [ad_permission_p $group_id "admin"]
+set write_p [permission::permission_p -object_id $group_id -privilege "write"]
+set admin_p [permission::permission_p -object_id $group_id -privilege "admin"]
 
 set return_url "[ad_conn url]?[ad_conn query]"
 set return_url_enc [ad_urlencode $return_url]
@@ -64,7 +64,7 @@
 
     set mapped_trees [category_tree::get_mapped_trees $group_id]
     foreach mapped_tree $mapped_trees {
-	util_unlist $mapped_tree tree_id tree_name subtree_id
+	lassign $mapped_tree tree_id tree_name subtree_id
 	if {$subtree_id ne ""} {
 	    set tree_name "${tree_name}::[category::get_name $subtree_id]"
 	}