Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 10 Apr 2018 06:56:27 -0000 1.5 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 25 Apr 2018 08:51:36 -0000 1.6 @@ -178,7 +178,7 @@ mc_interaction set auto_correct true mc_interaction instproc convert_to_internal {} { # - # Build a from from the components of the exercise on the fly. + # Build a form from the components of the exercise on the fly. # Actually, this methods computes the properties "form" and # "form_constraints" based on the components of this form field. # Index: openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl 21 Mar 2018 20:01:42 -0000 1.6 +++ openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl 25 Apr 2018 08:51:36 -0000 1.7 @@ -264,7 +264,7 @@ mc_exercise instproc convert_to_internal {} { # - # Build a from from the components of the exercise on the fly. + # Build a form from the components of the exercise on the fly. # Actually, this methods computes the properties "form" and # "form_constraints" based on the components of this form field. # Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v diff -u -N -r1.17 -r1.18 --- openacs-4/packages/xowf/tcl/xowf-procs.tcl 10 Apr 2018 06:56:27 -0000 1.17 +++ openacs-4/packages/xowf/tcl/xowf-procs.tcl 25 Apr 2018 08:51:36 -0000 1.18 @@ -1918,7 +1918,7 @@ # In case, the id is a form object, it is a dynamic form, # that we can't edit; therefore, we provide no link. # - # Here, we have have an id that we use for fetching... + # Here, we have an id that we use for fetching... # set form [::xo::db::CrClass get_instance_from_db -item_id $entry_form_item_id] set base [$form pretty_link] @@ -2019,7 +2019,7 @@ } WorkflowPage ad_instproc schedule_job {-time:required -party_id cmd} { - Schedule the specified Tcl command for the the current package + Schedule the specified Tcl command for the current package instance at the given time. } { :log "-at" Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v diff -u -N -r1.267 -r1.268 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 19 Apr 2018 08:25:41 -0000 1.267 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 25 Apr 2018 08:51:36 -0000 1.268 @@ -821,7 +821,7 @@ file instproc get_from_value {value attribute {raw ""}} { # - # The value of of a form entry might be: + # The value of a form entry might be: # - an atomic list element # - a list with attribute value pairs # @@ -1433,7 +1433,7 @@ numeric instproc initialize {} { next set :widget_type numeric - # check, if we we have an integer format + # check, if we have an integer format set :is_integer [regexp {%[0-9.]*d} [:format]] } numeric instproc convert_to_external value { Index: openacs-4/packages/xowiki/tcl/link-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v diff -u -N -r1.103 -r1.104 --- openacs-4/packages/xowiki/tcl/link-procs.tcl 22 Apr 2018 18:09:29 -0000 1.103 +++ openacs-4/packages/xowiki/tcl/link-procs.tcl 25 Apr 2018 08:51:36 -0000 1.104 @@ -601,7 +601,7 @@ # break # } # if {![info exists r(item_id)]} {return 0} - # # we have a valid item. Set the the package_id and return the item_id + # # we have a valid item. Set the package_id and return the item_id # :package_id $r(package_id) # return $r(item_id) # } Index: openacs-4/packages/xowiki/tcl/package-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v diff -u -N -r1.314 -r1.315 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 9 Apr 2018 07:58:06 -0000 1.314 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 25 Apr 2018 08:51:36 -0000 1.315 @@ -469,8 +469,10 @@ set package_prefix [:get_parameter package_prefix ${:package_url}] if {$package_prefix eq "/" && [string length $lang]>2} { - # don't compact the the path for images etc. to avoid conflicts + # + # Don't compact the path for images etc. to avoid conflicts # with e.g. //../image/* + # set package_prefix ${:package_url} } #:msg "lang=$lang, default_lang=$default_lang, name=$name, parent_id=$parent_id, package_prefix=$package_prefix" Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v diff -u -N -r1.143 -r1.144 --- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl 9 Apr 2018 08:11:05 -0000 1.143 +++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl 25 Apr 2018 08:51:36 -0000 1.144 @@ -254,7 +254,7 @@ set granted [$package_id check_permissions -link $computed_link $package_id edit-new] #$data msg computed_link=$computed_link,granted=$granted if {!$granted} { - util_user_message -message "User not authorized to to create a file named $name" + util_user_message -message "User not authorized to create a file named $name" return 0 } } else { 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 -N -r1.515 -r1.516 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 23 Apr 2018 07:14:16 -0000 1.515 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 25 Apr 2018 08:51:36 -0000 1.516 @@ -370,7 +370,7 @@ # form_instance_item_index of all child items under the tree based # on parent_ids. Use a query like the following to count the # children of an item having a certain page_template (e.g. - # find all the folders/links/... having the the specified item + # find all the folders/links/... having the specified item # as parent): # # select count(*) from xowiki_form_instance_children Index: openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl,v diff -u -N -r1.43 -r1.44 --- openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl 15 Mar 2018 09:11:34 -0000 1.43 +++ openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl 25 Apr 2018 08:51:36 -0000 1.44 @@ -20,7 +20,9 @@ #ns_log notice "--sc ::xowiki::datasource $page [$page set publish_status]" if {[$page set publish_status] in {production expired}} { - # no data source for for pages under construction + # + # No data source result for pages under construction + # #ns_log notice "--sc page under construction, no datasource" return [list object_id $revision_id title "" \ content "" keywords "" \ Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v diff -u -N -r1.45 -r1.46 --- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl 9 Apr 2018 07:58:06 -0000 1.45 +++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl 25 Apr 2018 08:51:36 -0000 1.46 @@ -777,12 +777,12 @@ } if {![info exists inserted]} {error "invalid 'to' list (no inserted element detected)"} # - # compute the remaining list + # Compute the remaining list. # set remaining [list] foreach e $clean {if {$e ne $inserted} {lappend remaining $e}} # - # compute rename rename commands for it + # Compute rename commands for it. # set gap_renames [::xowiki::utility page_order_renames -parent_id $folder_id \ -publish_status $publish_status \ @@ -792,7 +792,7 @@ } } # - # Compute the rename commands for the drop target + # Compute the rename commands for the drop target. # set drop_renames [::xowiki::utility page_order_renames -parent_id $folder_id \ -publish_status $publish_status \ @@ -803,7 +803,7 @@ } # - # Perform the actual renames + # Perform the actual renames. # set temp_obj [::xowiki::Page new -name dummy -volatile] set slot [$temp_obj find_slot page_order] @@ -817,7 +817,8 @@ } } # - # Flush the page fragment caches (page fragments based on page_order might be sufficient) + # Flush the page fragment caches (page fragments based on + # page_order might be sufficient). $package_id flush_page_fragment_cache -scope agg } Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -N -r1.350 -r1.351 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 16 Apr 2018 11:17:07 -0000 1.350 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 25 Apr 2018 08:51:36 -0000 1.351 @@ -191,7 +191,7 @@ # # To create form_pages in different places than the form, one can - # provide provide parent_id and package_id. + # provide parent_id and package_id. # # The following construct is more complex than necessary to # provide backward compatibility. Note that the passed-in