Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v diff -u -N -r1.56 -r1.57 --- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 15 May 2018 13:28:21 -0000 1.56 +++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 16 May 2018 22:04:59 -0000 1.57 @@ -573,15 +573,19 @@ lappend testcase_ids $testcase_id foreach testcase [nsv_get aa_test cases] { if {$testcase_id == [lindex $testcase 0]} { - lassign $testcase . . . package_key . init_classes + set package_key [lindex $testcase 3] + set init_classes [lindex $testcase 5] foreach init_class $init_classes { set classes([list $package_key $init_class]) 1 } } } } else { foreach testcase [nsv_get aa_test cases] { - lassign $testcase testcase_id . . package_key categories init_classes + set testcase_id [lindex $testcase 0] + set package_key [lindex $testcase 3] + set categories [lindex $testcase 4] + set init_classes [lindex $testcase 5] # try to disqualify the test case @@ -681,7 +685,14 @@ set testcase_bodys {} foreach testcase [nsv_get aa_test cases] { if {$testcase_id == [lindex $testcase 0]} { - lassign $testcase . . testcase_file package_key testcase_cats testcase_inits testcase_on_error testcase_bodys aa_error_level + set testcase_file [lindex $testcase 2] + set package_key [lindex $testcase 3] + set testcase_cats [lindex $testcase 4] + set testcase_inits [lindex $testcase 5] + set testcase_on_error [lindex $testcase 6] + set testcase_bodys [lindex $testcase 7] + set aa_error_level [lindex $testcase 8] + set aa_package_key $package_key } } Index: openacs-4/packages/acs-automated-testing/www/admin/component.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/component.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/acs-automated-testing/www/admin/component.tcl 30 Apr 2018 12:45:00 -0000 1.7 +++ openacs-4/packages/acs-automated-testing/www/admin/component.tcl 16 May 2018 22:04:59 -0000 1.8 @@ -17,7 +17,9 @@ set component_bodys {} foreach component [nsv_get aa_test components] { if {$component_id eq [lindex $component 0] && $package_key eq [lindex $component 1]} { - lassign $component . . component_desc component_file component_body + set component_desc [lindex $component 2] + set component_file [lindex $component 3] + set component_body [lindex $component 4] } } Index: openacs-4/packages/acs-automated-testing/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/index.tcl,v diff -u -N -r1.14 -r1.15 --- openacs-4/packages/acs-automated-testing/www/admin/index.tcl 31 Mar 2018 12:51:59 -0000 1.14 +++ openacs-4/packages/acs-automated-testing/www/admin/index.tcl 16 May 2018 22:04:59 -0000 1.15 @@ -97,7 +97,8 @@ timestamp passes fails marker set old_package_key "" foreach testcase [lsort [nsv_get aa_test cases]] { - lassign $testcase testcase_id . . package_key . + set testcase_id [lindex $testcase 0] + set package_key [lindex $testcase 3] lassign $results($testcase_id,$package_key) testcase_desc . categories \ testcase_timestamp testcase_passes testcase_fails Index: openacs-4/packages/acs-developer-support/www/request-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/request-info.tcl,v diff -u -N -r1.23 -r1.24 --- openacs-4/packages/acs-developer-support/www/request-info.tcl 8 May 2018 22:37:18 -0000 1.23 +++ openacs-4/packages/acs-developer-support/www/request-info.tcl 16 May 2018 22:04:59 -0000 1.24 @@ -141,7 +141,8 @@ } } registered_proc { - lassign $info . . proc args + set proc [lindex $info 2] + set args [lindex $info 3] append body "Called registered procedure: $proc [ns_quotehtml $args] for ($method $path) - $duration\n" if {$action eq "error"} { append body "\n" @@ -224,7 +225,7 @@ } else { set statement_pool "" } - + if { $command eq "gethandle" } { # Remember which handle was acquired from which pool. set statement_pool $sql @@ -238,7 +239,7 @@ } else { set value "$statement_name: " } - + # Remove extra whitespace before query set min_whitespace -1 foreach line [split $sql \n] { @@ -251,7 +252,7 @@ } } } - + if { $min_whitespace > 0 } { set new_sql {} foreach line [split $sql \n] { @@ -302,7 +303,7 @@ hide_p t } } - + } # Profiling information @@ -349,7 +350,7 @@ append file_links " x" set size - } - } else { + } else { set size {} } Index: openacs-4/packages/acs-templating/tcl/currency-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/currency-procs.tcl,v diff -u -N -r1.18 -r1.19 --- openacs-4/packages/acs-templating/tcl/currency-procs.tcl 24 Apr 2018 21:19:43 -0000 1.18 +++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl 16 May 2018 22:04:59 -0000 1.19 @@ -90,8 +90,10 @@ # a currency is a 6 element list supporting, for example, the following forms: "$2.03" "Rs 50.42" "12.52L" "Y5,13c" # equivalent of date::unpack lassign $value leading_symbol whole_part separator fractional_part trailing_money format - lassign $format . format_whole_part . format_fractional_part + set format_whole_part [lindex $format 1] + set format_fractional_part [lindex $format 3] + set whole_part_valid_p [template::data::validate integer whole_part message] if { $fractional_part ne "" } { set fractional_part_valid_p [template::data::validate integer fractional_part message] Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v diff -u -N -r1.58 -r1.59 --- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl 9 May 2018 15:33:29 -0000 1.58 +++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl 16 May 2018 22:04:59 -0000 1.59 @@ -442,7 +442,8 @@ set child_id [lindex $elm 0] if { $child_id == $keyword_id } { - lassign $elm . . parent(id) parent(heading) + set parent(id) [lindex $elm 2] + set parent(heading) [lindex $elm 3] return $parent($element) } } Index: openacs-4/packages/forums/lib/message/attachment-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/attachment-list.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/forums/lib/message/attachment-list.tcl 24 Apr 2018 14:28:56 -0000 1.7 +++ openacs-4/packages/forums/lib/message/attachment-list.tcl 16 May 2018 22:04:59 -0000 1.8 @@ -18,7 +18,8 @@ # get the attachments template::multirow create attachments url name foreach attachment [attachments::get_attachments -object_id $message(message_id)] { - lassign $attachment . name url + set name [lindex $attachment 1] + set url [lindex $attachment 2] template::multirow append attachments $url $name }