Index: openacs-4/packages/acs-subsite/www/admin/attributes/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/attributes/delete-2.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-subsite/www/admin/attributes/delete-2.tcl	19 Jan 2018 14:09:48 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/attributes/delete-2.tcl	16 May 2019 09:54:29 -0000	1.6.2.1
@@ -1,5 +1,3 @@
-# /packages/mbryzek-subsite/www/admin/attributes/delete-2.tcl
-
 ad_page_contract {
 
     Deletes the attribute and all values
@@ -16,17 +14,17 @@
 
 if {$operation eq "Yes, I really want to delete this attribute"} {
     db_transaction {
-	set object_type [db_string select_object_type {
-	    select attr.object_type 
-	      from acs_attributes attr
-	     where attr.attribute_id = :attribute_id
-	} -default ""]
+        set object_type [db_string select_object_type {
+            select attr.object_type
+              from acs_attributes attr
+             where attr.attribute_id = :attribute_id
+        } -default ""]
 
-	# If object type is empty, that means the attribute doesn't exist
-	if { $object_type ne "" && [attribute::delete $attribute_id] } {
-	    # Recreate all the packages to use the new attribute
-	    package_recreate_hierarchy $object_type
-	}
+        # If object type is empty, that means the attribute doesn't exist
+        if { $object_type ne "" && [attribute::delete $attribute_id] } {
+            # Recreate all the packages to use the new attribute
+            package_recreate_hierarchy $object_type
+        }
     }
 } elseif { $return_url eq "" } {
     set return_url [export_vars -base one attribute_id]