Index: openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy.tcl	10 Jan 2007 21:22:06 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy.tcl	27 Oct 2014 16:39:49 -0000	1.5
@@ -23,7 +23,7 @@
 
 set context [list \
         [list "[ad_conn package_url]admin/group-types/" "Group types"] \
-	[list "one?[ad_export_vars group_type]" "One type"] \
+	[list "one?[export_vars group_type]" "One type"] \
 	"Edit default join policy"]
 
 if { ![db_0or1row select_pretty_name {
@@ -37,7 +37,7 @@
     return
 }
 
-if {$dynamic_p ne "t" } {
+if {$dynamic_p != "t" } {
     ad_return_error "Cannot administer group type" "Group type \"$group_type\" can only be administered by programmers"
 }