Index: openacs-4/packages/categories/www/cadmin/tree-map-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-map-2.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/categories/www/cadmin/tree-map-2.tcl	7 Aug 2017 23:48:05 -0000	1.10
+++ openacs-4/packages/categories/www/cadmin/tree-map-2.tcl	15 May 2018 22:17:50 -0000	1.11
@@ -1,10 +1,10 @@
 ad_page_contract {
-    
+
     Asks whether users will be allowed to assign multiple
     categories of this subtree to objects and if users
     have to categorize an object in this subtree.
 
-    Then assings this subtree to the passed object (usually a package_id).
+    Then assigns this subtree to the passed object (usually a package_id).
 
     @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
@@ -42,39 +42,39 @@
 
 ad_form -name tree_map_form -action tree-map-2 -export { tree_id category_id locale object_id edit_p ctx_id} -form {
     {widget:text(radio) {label "#categories.Widget#"} {options {
-      {"#categories.Widget_select#" select}
-      {"#categories.Widget_multiselect#" multiselect}
-      {"#categories.Widget_radio#" radio}
-      {"#categories.Widget_checkbox#" checkbox}
+        {"#categories.Widget_select#" select}
+        {"#categories.Widget_multiselect#" multiselect}
+        {"#categories.Widget_radio#" radio}
+        {"#categories.Widget_checkbox#" checkbox}
     }}}
     {require_category_p:text(radio) {label "#categories.Widget_required_category#"} {options {{"#acs-admin.Yes#" t} {"#acs-admin.No#" f}}}}
 } -on_request {
     if {$edit_p} {
-	db_1row get_mapping_parameters ""
-	if { $widget eq "" } {
-	    # this is pre-widget selection and we default to the same
-	    # look and feel as before
-	    if { $assign_single_p } {
-		set widget "select"
-	    } else {
-		set widget "multiselect"
-	    }
-	}
+        db_1row get_mapping_parameters ""
+        if { $widget eq "" } {
+            # this is pre-widget selection and we default to the same
+            # look and feel as before
+            if { $assign_single_p } {
+                set widget "select"
+            } else {
+                set widget "multiselect"
+            }
+        }
     } else {
-	# we default to the default before widgets could be selected
-	set widget multiselect
-	set require_category_p f
+    # we default to the default before widgets could be selected
+        set widget multiselect
+        set require_category_p f
     }
 } -on_submit {
     if { $widget eq "select" || $widget eq "radio" } {
-	set assign_single_p t
+        set assign_single_p t
     } else {
-	set assign_single_p f
+        set assign_single_p f
     }
     if {$edit_p} {
-	category_tree::edit_mapping -tree_id $tree_id -object_id $object_id -assign_single_p $assign_single_p -require_category_p $require_category_p -widget $widget
+        category_tree::edit_mapping -tree_id $tree_id -object_id $object_id -assign_single_p $assign_single_p -require_category_p $require_category_p -widget $widget
     } else {
-	category_tree::map -tree_id $tree_id -subtree_category_id $category_id -object_id $object_id -assign_single_p $assign_single_p -require_category_p $require_category_p -widget $widget
+        category_tree::map -tree_id $tree_id -subtree_category_id $category_id -object_id $object_id -assign_single_p $assign_single_p -require_category_p $require_category_p -widget $widget
     }
 } -after_submit {
     ad_returnredirect [export_vars -no_empty -base object-map {locale object_id ctx_id}]