Index: openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl	30 Mar 2010 22:19:45 -0000	1.9
+++ openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl	27 Oct 2014 16:38:52 -0000	1.10
@@ -18,7 +18,7 @@
     {max_n_values:integer 1}
 } -validate {
     datatype_type_ck {
-	if {$datatype != "number" && $datatype != "string" && $datatype != "text"} {
+	if {$datatype ne "number" && $datatype ne "string" && $datatype ne "text"} {
 	    ad_complain
 	}
     }
@@ -51,7 +51,7 @@
 }
 
 # LARS hack
-set sections [lindex [lindex [apm_parameter_section_slider $package_key] 0] 3]
+set sections [lindex [apm_parameter_section_slider $package_key] 0 3]
 foreach section $sections {
     if {$section_name eq [lindex $section 1]} {
         set section_name [lindex $section 0]