Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v diff -u -N -r1.26.2.1 -r1.26.2.2 --- openacs-4/packages/categories/tcl/category-trees-procs.tcl 10 Sep 2015 08:30:19 -0000 1.26.2.1 +++ openacs-4/packages/categories/tcl/category-trees-procs.tcl 22 Apr 2017 18:20:26 -0000 1.26.2.2 @@ -219,7 +219,7 @@ @param object_id object to get the mapped category trees. @param locale language in which to get the name. [ad_conn locale] used by default. - @return tcl list of lists: tree_id tree_name subtree_category_id + @return Tcl list of lists: tree_id tree_name subtree_category_id assign_single_p require_category_p @author Timo Hentschel (timo@timohentschel.de) } { @@ -235,7 +235,7 @@ Get the category trees mapped to an object. @param object_id object to get the mapped category trees. - @return tcl list of tree_ids + @return Tcl list of tree_ids @author Peter Kreuzinger (peter.kreuzinger@wu-wien.ac.at) } { set result [list] @@ -268,7 +268,7 @@ @param object_id_list list of object to get the mapped category trees. @param locale language in which to get the name. [ad_conn locale] used by default. - @return tcl list of lists: tree_id tree_name subtree_category_id + @return Tcl list of lists: tree_id tree_name subtree_category_id assign_single_p require_category_p widget @author Jade Rubick (jader@bread.com) } { @@ -293,7 +293,7 @@ @option subtree_id Return only categories of the given subtree. @param tree_id category tree to get the categories of. @param locale language in which to get the categories. [ad_conn locale] used by default. - @return tcl list of lists: category_id category_name deprecated_p level + @return Tcl list of lists: category_id category_name deprecated_p level @author Timo Hentschel (timo@timohentschel.de) } { if {[catch {set tree [nsv_get category_trees $tree_id]}]} { @@ -332,7 +332,7 @@ Gets all package instances using a category tree. @param tree_id category tree to get the using packages for. - @return tcl list of lists: package_pretty_plural object_id object_name package_id instance_name read_p + @return Tcl list of lists: package_pretty_plural object_id object_name package_id instance_name read_p @author Timo Hentschel (timo@timohentschel.de) } { set user_id [ad_conn user_id] Index: openacs-4/packages/categories/tcl/test/categories-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/test/categories-procs.tcl,v diff -u -N -r1.1.20.2 -r1.1.20.3 --- openacs-4/packages/categories/tcl/test/categories-procs.tcl 21 Apr 2017 20:25:40 -0000 1.1.20.2 +++ openacs-4/packages/categories/tcl/test/categories-procs.tcl 22 Apr 2017 18:20:26 -0000 1.1.20.3 @@ -21,7 +21,7 @@ select 1 from category_trees where tree_id = :tree_id } -default "0"] - aa_equals "tree was created successfuly" $success_p 1 + aa_equals "tree was created successfully" $success_p 1 } } @@ -46,7 +46,7 @@ select 1 from categories where category_id = :category_id } -default "0"] - aa_equals "category was created successfuly" $success_p 1 + aa_equals "category was created successfully" $success_p 1 } } @@ -74,7 +74,7 @@ select 0 from categories where category_id = :category_id } -default "1"] - aa_equals "category was deleted successfuly" $success_p 1 + aa_equals "category was deleted successfully" $success_p 1 } } Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v diff -u -N -r1.48.2.7 -r1.48.2.8 --- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl 23 Feb 2017 10:37:14 -0000 1.48.2.7 +++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl 22 Apr 2017 18:21:46 -0000 1.48.2.8 @@ -132,7 +132,7 @@ file per default) of the package that the files belong to, the database is not accessed in any way. - @param file_list A list of paths to adp or tcl files to do replacements in. The + @param file_list A list of paths to adp or Tcl files to do replacements in. The paths should be relative to $::acs::rootdir. All files must belong to the same package. Index: openacs-4/packages/acs-lang/tcl/localization-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.tcl,v diff -u -N -r1.24.2.6 -r1.24.2.7 --- openacs-4/packages/acs-lang/tcl/localization-procs.tcl 21 Apr 2017 16:06:05 -0000 1.24.2.6 +++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl 22 Apr 2017 18:21:46 -0000 1.24.2.7 @@ -169,7 +169,7 @@ for that locale. @param num Number in canonical form - @param fmt Format string used by the tcl format + @param fmt Format string used by the Tcl format command (should be restricted to the form "%.Nf" if present). @param locale Locale @return Localized form of the number Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v diff -u -N -r1.18.2.6 -r1.18.2.7 --- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 21 Apr 2017 16:06:05 -0000 1.18.2.6 +++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 22 Apr 2017 18:21:46 -0000 1.18.2.7 @@ -474,8 +474,8 @@ lang::util::get_temporary_tags_indices } util__replace_temporary_tags_with_lookups { - A test tcl file and catalog file are created. The temporary tags in the - tcl file are replaced with message lookups and keys and messages are appended + A test Tcl file and catalog file are created. The temporary tags in the + Tcl file are replaced with message lookups and keys and messages are appended to the catalog file. @author Peter Marklund (peter@collaboraid.biz) @@ -500,7 +500,7 @@ # NOTE: must be kept up-to-date for teardown to work set expected_new_keys [list Auto_Key key_1_1] - # Write the test tcl file + # Write the test Tcl file set tcl_file_id [open "$::acs::rootdir/$tcl_file" w] set new_key_1 "_" set new_text_1 "Auto Key" @@ -526,7 +526,7 @@ return $catalog_file " - # Replace message tags in the tcl file and insert into catalog file + # Replace message tags in the Tcl file and insert into catalog file lang::util::replace_temporary_tags_with_lookups $tcl_file aa_unstub lang::catalog::get_catalog_file_path @@ -551,11 +551,11 @@ aa_true "third key not inserted" [string equal [lindex [array get updated_messages_array $new_key_3] 1] \ $messages_array($new_key_3)] - # Check that there are no tags left in the tcl file + # Check that there are no tags left in the Tcl file set tcl_file_id [open "$::acs::rootdir/$tcl_file" r] set updated_tcl_contents [read $tcl_file_id] close $tcl_file_id - aa_true "tags in tcl file replaced" [expr {[llength [lang::util::get_temporary_tags_indices $updated_tcl_contents]] == 0}] + aa_true "tags in Tcl file replaced" [expr {[llength [lang::util::get_temporary_tags_indices $updated_tcl_contents]] == 0}] # Delete the test message keys foreach message_key [concat [array names messages_array] $expected_new_keys] { @@ -565,7 +565,7 @@ file delete -- $catalog_backup_file file delete -- $catalog_file - # Delete the tcl files + # Delete the Tcl files file delete -- $::acs::rootdir/$tcl_file file delete -- $::acs::rootdir/$tcl_backup_file } Index: openacs-4/packages/acs-lang/www/admin/test/catalog-test.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/catalog-test.tcl,v diff -u -N -r1.2.18.2 -r1.2.18.3 --- openacs-4/packages/acs-lang/www/admin/test/catalog-test.tcl 21 Apr 2017 16:06:05 -0000 1.2.18.2 +++ openacs-4/packages/acs-lang/www/admin/test/catalog-test.tcl 22 Apr 2017 18:21:46 -0000 1.2.18.3 @@ -13,7 +13,7 @@ set context_bar [ad_context_bar "Message Catalog Test"] set footer [ad_footer] -# Test 1 verifies that the message catalog has loaded successfuly +# Test 1 verifies that the message catalog has loaded successfully set english [_ en test.English] set french [_ fr test.French] set spanish [_ es test.Spanish] Index: openacs-4/packages/acs-lang/www/admin/test/test.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/test.tcl,v diff -u -N -r1.3.12.2 -r1.3.12.3 --- openacs-4/packages/acs-lang/www/admin/test/test.tcl 21 Apr 2017 16:06:05 -0000 1.3.12.2 +++ openacs-4/packages/acs-lang/www/admin/test/test.tcl 22 Apr 2017 18:21:46 -0000 1.3.12.3 @@ -13,7 +13,7 @@ # set navbar [ad_context_bar "Test"] set footer [ad_footer] -# Test 1 verifies that the message catalog has loaded successfuly +# Test 1 verifies that the message catalog has loaded successfully set english [_ en test.English] set french [_ fr test.French] set spanish [_ es test.Spanish] Index: openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl,v diff -u -N -r1.7.2.2 -r1.7.2.3 --- openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl 28 Oct 2015 09:38:35 -0000 1.7.2.2 +++ openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl 22 Apr 2017 18:28:25 -0000 1.7.2.3 @@ -58,7 +58,7 @@ switch -- $type { tcl { - # Execute the tcl procedure + # Execute the Tcl procedure $callback -object_id $object_id -node_id $node_id -package_id $package_id } default { error "Callbacks of type $type not supported" } Index: openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl,v diff -u -N -r1.5.2.5 -r1.5.2.6 --- openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl 21 Apr 2017 16:23:53 -0000 1.5.2.5 +++ openacs-4/packages/acs-subsite/www/admin/rel-types/delete-2.tcl 22 Apr 2017 18:28:25 -0000 1.5.2.6 @@ -51,7 +51,7 @@ ad_return_error "Error deleting relationship type" "We got the following error trying to delete this relationship type:
$errmsg
" ad_script_abort } - # If we successfuly dropped the relationship type, drop the table. + # If we successfully dropped the relationship type, drop the table. # Note that we do this outside the transaction as it commits all # transactions anyway if { [db_table_exists $table_name] } {