Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	7 Aug 2017 23:47:58 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	16 May 2019 09:54:29 -0000	1.7.2.1
@@ -1,5 +1,3 @@
-# /packages/mbryzek-subsite/www/admin/rel-segments/new.tcl
-
 ad_page_contract {
 
     Form to create a new relational segment
@@ -21,9 +19,9 @@
     subsite_group_id:onevalue
 } -validate {
     group_in_scope_p -requires {group_id:notnull} {
-	if { ![application_group::contains_party_p -party_id $group_id -include_self]} {
-	    ad_complain "The group either does not exist or does not belong to this subsite."
-	}
+        if { ![application_group::contains_party_p -party_id $group_id -include_self]} {
+            ad_complain "The group either does not exist or does not belong to this subsite."
+        }
     }
 }
 
@@ -33,7 +31,7 @@
 if { $rel_type ne "" } {
     ad_returnredirect [export_vars -base new-2 {group_id rel_type return_url}]
     ad_script_abort
-} 
+}
 
 permission::require_permission -object_id $group_id -privilege "read"