Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v diff -u -r1.30.2.26 -r1.30.2.27 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 15 Apr 2017 09:56:20 -0000 1.30.2.26 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 15 Apr 2017 10:12:03 -0000 1.30.2.27 @@ -1335,7 +1335,7 @@ set start [string range $line 0 end-1] set elements 3 - for {set idx 1} {[string range [lindex $start $idx] 0 0] eq "-"} {incr idx} { + for {set idx 1} {[string index [lindex $start $idx] 0] eq "-"} {incr idx} { incr elements } Index: openacs-4/packages/acs-bootstrap-installer/installer/www/blank-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer/www/blank-master.tcl,v diff -u -r1.2.2.10 -r1.2.2.11 --- openacs-4/packages/acs-bootstrap-installer/installer/www/blank-master.tcl 1 Nov 2016 18:27:03 -0000 1.2.2.10 +++ openacs-4/packages/acs-bootstrap-installer/installer/www/blank-master.tcl 15 Apr 2017 10:12:03 -0000 1.2.2.11 @@ -102,7 +102,7 @@ foreach css $cssList { set first [lindex $css 0] - if { [llength $css] == 2 && [llength $first] == 1 && [string range $first 0 0] ne "-"} { + if { [llength $css] == 2 && [llength $first] == 1 && [string index $first 0] ne "-"} { template::head::add_css -href $first -media [lindex $css 1] } elseif {[llength $first] == 2} { set params [list] Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v diff -u -r1.78.2.50 -r1.78.2.51 --- openacs-4/packages/acs-tcl/tcl/security-procs.tcl 15 Apr 2017 09:16:10 -0000 1.78.2.50 +++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl 15 Apr 2017 10:12:03 -0000 1.78.2.51 @@ -670,7 +670,7 @@ ns_log $::security::log(login_url) "ad_get_login_url: UseHostnameDomainforReg current_location <$current_location> <$config_hostname> ne <$currentHost>" if { $currentHost ne $config_hostname} { - if { [string range $url 0 0] eq "/" } { + if { [string index $url 0] eq "/" } { # Make the url fully qualified if { [security::secure_conn_p] } { set url_decoded [security::get_secure_qualified_url $url] @@ -743,7 +743,7 @@ if { $currentHost ne $config_hostname} { - if { [string range $return_url 0 0] eq "/" } { + if { [string index $return_url 0] eq "/" } { # Make the return_url fully qualified if { [security::secure_conn_p] } { set return_url_decoded [security::get_secure_qualified_url $return_url] @@ -1621,7 +1621,7 @@ } { set uri [get_uri_part $url] - if { [string range $uri 0 0] ne "/" } { + if { [string index $uri 0] ne "/" } { # Make relative URI qualified return [ad_conn url]/$uri } Index: openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl,v diff -u -r1.22.2.1 -r1.22.2.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl 10 Sep 2015 08:28:05 -0000 1.22.2.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl 15 Apr 2017 10:12:03 -0000 1.22.2.2 @@ -380,7 +380,7 @@ # edit existing choices set count 0 foreach i [lsort [array names choice]] { - if {[string range $i 0 0] ne "_" && $choice($i) ne ""} { + if {[string index $i 0] ne "_" && $choice($i) ne ""} { incr count set new_choice_id [as::item_choice::new_revision -choice_id $i -mc_id $new_item_type_id] set title $choice($i) @@ -394,7 +394,7 @@ # add new choices foreach i [lsort [array names choice]] { - if {[string range $i 0 0] eq "_" && $choice($i) ne ""} { + if {[string index $i 0] eq "_" && $choice($i) ne ""} { incr count set new_choice_id [as::item_choice::new -mc_id $new_item_type_id \ -title $choice($i) \ Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v diff -u -r1.78.2.26 -r1.78.2.27 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 1 Mar 2017 20:04:44 -0000 1.78.2.26 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 15 Apr 2017 10:12:03 -0000 1.78.2.27 @@ -886,7 +886,7 @@ if {"::xotcl::Object" in [$o info precedence]} {return [$o info instargs {*}$args]} set posargs {} foreach m [$o info method args {*}$args] p [$o info method parameters {*}$args] { - if {[string range [lindex $p 0] 0 0] eq "-"} continue + if {[string index [lindex $p 0] 0] eq "-"} continue lappend posargs $m } return $posargs Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v diff -u -r1.7.2.20 -r1.7.2.21 --- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl 14 Feb 2017 13:24:15 -0000 1.7.2.20 +++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl 15 Apr 2017 10:12:03 -0000 1.7.2.21 @@ -464,7 +464,7 @@ lassign $def f default set pair [split [lindex $f 0 0] :] lassign $pair flaggedName flags - if {[string range $flaggedName 0 0] eq "-"} { + if {[string index $flaggedName 0] eq "-"} { set isFlag 1 set name [string range $flaggedName 1 end] } else { Index: openacs-4/packages/xowiki/tcl/menu-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/menu-procs.tcl,v diff -u -r1.8.2.7 -r1.8.2.8 --- openacs-4/packages/xowiki/tcl/menu-procs.tcl 25 Feb 2017 17:12:56 -0000 1.8.2.7 +++ openacs-4/packages/xowiki/tcl/menu-procs.tcl 15 Apr 2017 10:12:03 -0000 1.8.2.8 @@ -283,7 +283,7 @@ foreach me $items { array unset "" set kind [lindex $me 0] - if {[string range $kind 0 0] eq "#"} continue + if {[string index $kind 0] eq "#"} continue set properties [lrange $me 1 end] switch $kind { Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.485.2.61 -r1.485.2.62 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 21 Mar 2017 14:25:55 -0000 1.485.2.61 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 15 Apr 2017 10:12:03 -0000 1.485.2.62 @@ -3796,7 +3796,7 @@ if {[regexp {^(.*[^<>])\s*([=<>]|<=|>=|contains)\s*([^=]?.*)$} $clause _ lhs op rhs_expr]} { set lhs [string trim $lhs] set rhs_expr [string trim $rhs_expr] - if {[string range $lhs 0 0] eq "_"} { + if {[string index $lhs 0] eq "_"} { # # comparison with field names starting with "_" # Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl,v diff -u -r1.13.2.1 -r1.13.2.2 --- openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl 10 Sep 2015 08:28:05 -0000 1.13.2.1 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl 15 Apr 2017 10:15:59 -0000 1.13.2.2 @@ -151,7 +151,7 @@ # edit existing choices set count 0 foreach i \[lsort \[array names choice\]\] { - if {\[string range \$i 0 0\] != \"_\" && !\[empty_string_p \$choice(\$i)\]} { + if {\[string index \$i 0\] != \"_\" && !\[empty_string_p \$choice(\$i)\]} { incr count set new_choice_id \[as::item_choice::new_revision -choice_id \$i -mc_id \$new_item_type_id\] set title \$choice(\$i) @@ -164,7 +164,7 @@ # add new choices foreach i \[lsort \[array names choice\]\] { - if {\[string range \$i 0 0\] == \"_\" && !\[empty_string_p \$choice(\$i)\]} { + if {\[string index \$i 0\] == \"_\" && !\[empty_string_p \$choice(\$i)\]} { incr count set new_choice_id \[as::item_choice::new -mc_id \$new_item_type_id \\ -title \$choice(\$i) \\