Index: openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl 31 May 2013 20:27:17 -0000 1.3 +++ openacs-4/packages/scorm-importer/tcl/import-utils-procs.tcl 15 Nov 2019 09:00:13 -0000 1.4 @@ -41,7 +41,7 @@ } elseif {[regexp {.zip$} $upload_file]} { set type zip } else { - set type "Uknown type" + set type "Unknown type" } switch $type { Index: openacs-4/packages/imsld/lib/imsld-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/lib/imsld-master.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/imsld/lib/imsld-master.tcl 9 May 2018 15:33:31 -0000 1.6 +++ openacs-4/packages/imsld/lib/imsld-master.tcl 15 Nov 2019 09:09:58 -0000 1.7 @@ -122,7 +122,7 @@ # DRB: this shouldn't really be in blank master, there should be some way for # the templating package to associate a particular css file with pages that use -# particular form or list templates. Therefore I'll put the hard-wired values +# particular form or list templates. Therefore, I'll put the hard-wired values # in blank-compat for the moment. multirow append link stylesheet text/css /resources/acs-templating/lists.css \ "" [ad_conn language] all Index: openacs-4/packages/imsld/lib/gsi-plugins/gsi-gspread-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/lib/gsi-plugins/gsi-gspread-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/imsld/lib/gsi-plugins/gsi-gspread-procs.tcl 23 Jun 2009 17:04:17 -0000 1.1 +++ openacs-4/packages/imsld/lib/gsi-plugins/gsi-gspread-procs.tcl 15 Nov 2019 09:09:58 -0000 1.2 @@ -113,7 +113,7 @@ Returns a list of lists with URL and title to access each facility in the service instance of a given user } { set all_urls [list] - #rigth now, urls are static. This fact must be changed, but, by now, let's define them statically + #right now, urls are static. This fact must be changed, but, by now, let's define them statically set package_id [ad_conn package_id] set mount_point "[ad_conn location][apm_package_url_from_id $package_id]/gsi/gspread" #in this plugin, user_id and external_credentials can be obtained in the following urls, it does not make @@ -474,7 +474,7 @@ } else { ns_log Notice "there was a problem with the request, please try again." - #we have to undo whatever in in the database + #we have to undo whatever is in the database #redirect to previous page set package_id [ad_conn package_id] Index: openacs-4/packages/imsld/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/apm-callback-procs.tcl,v diff -u -r1.15 -r1.16 --- openacs-4/packages/imsld/tcl/apm-callback-procs.tcl 14 Jan 2010 10:50:55 -0000 1.15 +++ openacs-4/packages/imsld/tcl/apm-callback-procs.tcl 15 Nov 2019 09:09:58 -0000 1.16 @@ -15,7 +15,7 @@ } { Proc calls and tasks needed to be donde after the installation of the imsld package. } { - # initalize the cr + # initialize the cr imsld::install::init_content_repository # create default relationships Index: openacs-4/packages/imsld/tcl/imsld-fs-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-fs-procs.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/imsld/tcl/imsld-fs-procs.tcl 4 Nov 2009 17:09:22 -0000 1.10 +++ openacs-4/packages/imsld/tcl/imsld-fs-procs.tcl 15 Nov 2019 09:09:58 -0000 1.11 @@ -202,7 +202,7 @@ } { set string [expr { [string eq "" $string] ? \ "[_ imsld.Empty_property_value]" : "$string" }] - set tmpfile [ns_mktemp "/tmp/imsld_emtpyXXXXXX"] + set tmpfile [ns_mktemp "/tmp/imsld_emptyXXXXXX"] set file [open $tmpfile a] puts $file "$string" close $file Index: openacs-4/packages/imsld/tcl/imsld-gsi-parse-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-gsi-parse-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/imsld/tcl/imsld-gsi-parse-procs.tcl 23 Jun 2009 17:12:33 -0000 1.1 +++ openacs-4/packages/imsld/tcl/imsld-gsi-parse-procs.tcl 15 Nov 2019 09:09:58 -0000 1.2 @@ -1,7 +1,7 @@ # /packages/imsld/tcl/imsld-gsi-parse.procs.tcl ad_library { - Procedures in the imsld namespace for parsing gsi based xml files. + Procedures in the imsld namespace for parsing gsi based XML files. @creation-date Oct 2008 @author lfuente@it.uc3m.es Index: openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl 4 Apr 2018 20:29:49 -0000 1.4 +++ openacs-4/packages/imsld/tcl/imsld-gsi-procs.tcl 15 Nov 2019 09:09:58 -0000 1.5 @@ -40,12 +40,12 @@ Return a list with all service_id that are in a given UoL (the one instantiated by the run_id) } { set environments_in_run [db_list get_environments { - select ie.item_id + select ienv.item_id from imsld_componentsi ici, imsld_imsldsi iii, imsld_runs ir, - imsld_environmentsi ie - where ie.component_id=ici.item_id and + imsld_environmentsi ienv + where ienv.component_id=ici.item_id and ici.imsld_id=iii.item_id and iii.imsld_id=ir.imsld_id and ir.run_id=:run_id Index: openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl,v diff -u -r1.17 -r1.18 --- openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl 17 Apr 2018 14:47:02 -0000 1.17 +++ openacs-4/packages/imsld/tcl/imsld-instance-procs.tcl 15 Nov 2019 09:09:58 -0000 1.18 @@ -897,7 +897,7 @@ } #5.5 Generic Service (GSI) - #in another file, to ensure an non-intrussive add-on (as much as possible) + #in another file, to ensure a non-intrussive add-on (as much as possible) imsld::gsi::instance::instantiate_service -component_item_id $component_item_id -run_id $run_id -user_id $user_id Index: openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl,v diff -u -r1.91 -r1.92 --- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 15 Nov 2019 09:03:05 -0000 1.91 +++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 15 Nov 2019 09:09:58 -0000 1.92 @@ -1,7 +1,7 @@ # /packages/imsld/tcl/imsld-parse-procs.tcl ad_library { - Procedures in the imsld namespace for parsing xml files. + Procedures in the imsld namespace for parsing XML files. @creation-date Jul 2005 @author jopez@inv.it.uc3m.es @@ -295,7 +295,7 @@ # ported compression method or encryption with an unknown # password. - # Therefore it if it is 1, then it concluded successfully + # Therefore, it if it is 1, then it concluded successfully # but with warnings, so we switch it back to 0 if { $error_p == 1 } { @@ -354,7 +354,7 @@ -attr_name } { Taken from the one with the same name in the LORS package. - Gets attributes for an specific element. Returns the attribute value if found, emtpy string otherwise + Gets attributes for a specific element. Returns the attribute value if found, empty string otherwise @param node Node @param attr_name Attribute we want to fetch @@ -371,7 +371,7 @@ -attr_name -default } { - Gets a boolean attribute for an specific element. Returns the tcl true or false value attribute value if found, -default otherwise. + Gets a boolean attribute for a specific element. Returns the tcl true or false value attribute value if found, -default otherwise. @param node Document @param attr_name Attribute we want to fetch @@ -2243,14 +2243,14 @@ # 2. the referenced environment hasn't been created: invoke the parse_and_create_environment proc, # but first verify that the environment exists in the manifest if { [db_0or1row get_env_id { - select item_id as refrenced_env_id + select item_id as referenced_env_id from imsld_environmentsi where identifier = :ref and content_revision__is_live(environment_id) = 't' and component_id = :component_id }] } { # case one, just do the mappings - relation_add imsld_env_env_rel $environment_id $refrenced_env_id + relation_add imsld_env_env_rel $environment_id $referenced_env_id } else { # case two, first verify that the referenced environment exists set organizations [$manifest selectNodes "*\[local-name()='organizations'\]"] @@ -3041,7 +3041,7 @@ }] } { # ok, last try: searching in the rest of activity structures... if { [db_0or1row get_struct_id_from_la_ref { - select item_id as refrenced_struct_id, + select item_id as referenced_struct_id, structure_id from imsld_activity_structuresi where identifier = :learning_activity_ref @@ -3056,7 +3056,7 @@ -var_list { sort_order } # do the mappings - relation_add -extra_vars $extra_vars imsld_as_as_rel $activity_structure_id $refrenced_struct_id + relation_add -extra_vars $extra_vars imsld_as_as_rel $activity_structure_id $referenced_struct_id incr sort_order } else { # search in the manifest ... @@ -3148,7 +3148,7 @@ }] } { # ok, last try: searching in the rest of activity structures... if { [db_0or1row get_struct_id_from_sa_ref { - select item_id as refrenced_struct_id, + select item_id as referenced_struct_id, structure_id from imsld_activity_structuresi where identifier = :support_activity_ref @@ -3162,7 +3162,7 @@ -ns_set $extra_vars \ -var_list { sort_order } # do the mappings - relation_add -extra_vars $extra_vars imsld_as_as_rel $activity_structure_id $refrenced_struct_id + relation_add -extra_vars $extra_vars imsld_as_as_rel $activity_structure_id $referenced_struct_id incr sort_order } else { # search in the manifest ... @@ -3238,7 +3238,7 @@ # 2. the referenced activity structure hasn't been created: invoke the parse_and_create_activity_structure proc, # but first verify that the activity structure exists in the manifest if { [db_0or1row get_struct_id_from_as_ref { - select item_id as refrenced_struct_id, + select item_id as referenced_struct_id, structure_id from imsld_activity_structuresi where identifier = :ref @@ -3250,7 +3250,7 @@ -ns_set $extra_vars \ -var_list { sort_order } # case one, just do the mappings - relation_add -extra_vars $extra_vars imsld_as_as_rel $activity_structure_id $refrenced_struct_id + relation_add -extra_vars $extra_vars imsld_as_as_rel $activity_structure_id $referenced_struct_id incr sort_order } else { # case two, first verify that the referenced activity structure exists @@ -4303,7 +4303,7 @@ set calculate [$calculate_node asXML] set imsld_id [db_1row get_imsld_id { select ii.item_id - from imsld_imsldsi ii, imsld_organisationsi io + from imsld_imsldsi ii, imsld_organizationsi io where ii.organization_id = io.item_id and io.manifest_id = :manifest_id and content_revision__is_live(ii.imsld_id) = 't' @@ -4535,7 +4535,7 @@ # Components: Activities # N.B.: With the level C and notificaitons, it is possible to make a reference to an 'uncreated' - # learning or support activity. Therefore we must check before if the activity has not been created + # learning or support activity. Therefore, we must check before if the activity has not been created set activities [$components selectNodes "*\[local-name()='activities'\]"] if { [llength $activities] } { imsld::parse::validate_multiplicity -tree $activities -multiplicity 1 -element_name components -equal Index: openacs-4/packages/imsld/tcl/imsld-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.tcl,v diff -u -r1.129 -r1.130 --- openacs-4/packages/imsld/tcl/imsld-procs.tcl 15 Nov 2019 09:02:32 -0000 1.129 +++ openacs-4/packages/imsld/tcl/imsld-procs.tcl 15 Nov 2019 09:09:58 -0000 1.130 @@ -1167,8 +1167,8 @@ foreach recipient_user_id [imsld::roles::get_users_in_role -role_id $role_id -run_id $run_id] { set recipient_email [party::email -party_id $recipient_user_id] if { [lsearch -exact $notified_users_list $email_address] == -1 } { - set recepient_name [party::name -party_id $recipient_user_id] - set body_html "[_ imsld.lt_Dear_recepient_name_b]" + set recipient_name [party::name -party_id $recipient_user_id] + set body_html "[_ imsld.lt_Dear_recipient_name_b]" # if activity_id is not null: # 1. make it visible # 2. get the activity url in order to send it in the email @@ -1228,7 +1228,7 @@ Mark as finished the given component_id. This is done by adding a row in the table imsld_user_status. - This function is called from a url, but it can also be called recursively + This function is called from a URL, but it can also be called recursively } { set user_id [expr { [string eq "" $user_id] ? [ad_conn user_id] : $user_id }] if { !$code_call_p } { @@ -1349,7 +1349,7 @@ } } #FIXME: on-complete-actions are only defined form acts, because all users finish the component at the - #same time. I have to define the behaviour for other components. + #same time. I have to define the behavior for other components. #look for matching gsi_triggers set action_list [imsld::gsi::get_triggered_actions -trigger "on-complete-action" -run_id $run_id] #FIXME: hay que restringir la lista a las acciones que apuntan al component actual @@ -4620,7 +4620,7 @@ # process each activity foreach activity_list $activities_list { if { !([llength $activity_list] == 3) } { - # it's not refrenced from an activity, skip it + # it's not referenced from an activity, skip it break } # set the activity_id, activity_item_id and activity_type @@ -4637,7 +4637,7 @@ if { ![db_string check_completed_resource { *SQL* }] } { db_dml insert_completed_resource { *SQL* } } - #find all the resouces in the same activity + #find all the resources in the same activity dom createDocument foo foo_doc set foo_node [$foo_doc documentElement] Index: openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl,v diff -u -r1.24 -r1.25 --- openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl 15 Nov 2019 09:02:32 -0000 1.24 +++ openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl 15 Nov 2019 09:09:58 -0000 1.25 @@ -18,7 +18,7 @@ -parent_group_id } { Create a instance of a role (a party) for the role and for all the subroles with the "create-new" attribute set to true. - @param role_id identifier of the role to be instanciated + @param role_id identifier of the role to be instantiated } { db_1row get_role_name {} @@ -244,7 +244,7 @@ -role_source_id -run_id } { - Get the list of recipients of a send-mail service. Its called from a user belonging to a role into an specific imsld run and must get a list of users from the destination role. + Get the list of recipients of a send-mail service. Its called from a user belonging to a role into a specific imsld run and must get a list of users from the destination role. } { #FIX ME: when runs are supported, here may be included Index: openacs-4/packages/imsld/tcl/imsld-xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-xowiki-procs.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/imsld/tcl/imsld-xowiki-procs.tcl 28 Mar 2018 17:00:41 -0000 1.8 +++ openacs-4/packages/imsld/tcl/imsld-xowiki-procs.tcl 15 Nov 2019 09:09:58 -0000 1.9 @@ -158,7 +158,7 @@ if { [catch {dom parse $content document} errmsg] } { ns_log notice "imsld::xowiki::convert_syntax ERROR: Not a valid XML file, aborting parse process!" - # the docuemnt is not an xml file, just return it + # the docuemnt is not an XML file, just return it return $content } set root [$document documentElement] Index: openacs-4/packages/imsld/www/imsld-content-serve.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/imsld-content-serve.tcl,v diff -u -r1.31 -r1.32 --- openacs-4/packages/imsld/www/imsld-content-serve.tcl 4 Nov 2009 17:09:23 -0000 1.31 +++ openacs-4/packages/imsld/www/imsld-content-serve.tcl 15 Nov 2019 09:09:58 -0000 1.32 @@ -104,7 +104,7 @@ # XML => DOM document if { [catch {dom parse $xml_string dom_doc} errmsg] } { ns_log notice "IMSLD-CONTENT-SERVE:: ERROR: Not a valid XML file, serving without parsing!" - # the docuemnt is not an xml file, just return it + # the docuemnt is not an XML file, just return it ns_return 200 $mime_type $xml_string ad_script_abort } Index: openacs-4/packages/imsld/www/admin/imsld-confirm-finish.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-confirm-finish.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/imsld/www/admin/imsld-confirm-finish.tcl 17 Apr 2018 14:47:02 -0000 1.11 +++ openacs-4/packages/imsld/www/admin/imsld-confirm-finish.tcl 15 Nov 2019 09:09:58 -0000 1.12 @@ -1,5 +1,5 @@ ad_page_contract { - Confirm changes and set a run as activeAsign users assigned to an specified group + Confirm changes and set a run as activeAsign users assigned to a specified group @author lfuente@it.uc3m.es @creation-date May 2006 Index: openacs-4/packages/imsld/www/admin/imsld-finish.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-finish.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/imsld/www/admin/imsld-finish.tcl 9 May 2018 15:33:31 -0000 1.10 +++ openacs-4/packages/imsld/www/admin/imsld-finish.tcl 15 Nov 2019 09:09:58 -0000 1.11 @@ -1,5 +1,5 @@ ad_page_contract { - Confirm changes and set a run as activeAsign users assigned to an specified group + Confirm changes and set a run as activeAsign users assigned to a specified group @author lfuente@it.uc3m.es @creation-date May 2006 Index: openacs-4/packages/imsld/www/admin/imsld-role-add-members.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-role-add-members.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/imsld/www/admin/imsld-role-add-members.tcl 5 Apr 2018 14:44:09 -0000 1.7 +++ openacs-4/packages/imsld/www/admin/imsld-role-add-members.tcl 15 Nov 2019 09:09:58 -0000 1.8 @@ -1,7 +1,7 @@ #/packages/imsld/www/admin/imsld-role-add-members.tcl ad_page_contract { - Assign users assigned to an specified group + Assign users assigned to a specified group @author lfuente@it.uc3m.es @creation-date Mar 2006 Index: openacs-4/packages/imsld/www/admin/imsld-role-members.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-role-members.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/imsld/www/admin/imsld-role-members.tcl 5 Apr 2018 14:44:09 -0000 1.14 +++ openacs-4/packages/imsld/www/admin/imsld-role-members.tcl 15 Nov 2019 09:09:58 -0000 1.15 @@ -1,7 +1,7 @@ # /packages/imsld/www/admin/imsld-role-members.tcl ad_page_contract { - Assign users assigned to an specified group + Assign users assigned to a specified group @author lfuente@it.uc3m.es @creation-date Mar 2006 Index: openacs-4/packages/imsld/www/admin/imsld-role-remove-members.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-role-remove-members.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/imsld/www/admin/imsld-role-remove-members.tcl 17 Apr 2008 17:17:54 -0000 1.5 +++ openacs-4/packages/imsld/www/admin/imsld-role-remove-members.tcl 15 Nov 2019 09:09:58 -0000 1.6 @@ -1,7 +1,7 @@ #/packages/imsld/www/admin/imsld-role-remove-members.tcl ad_page_contract { - Remove members from an specified group + Remove members from a specified group @author lfuente@it.uc3m.es @creation-date Mar 2006 Index: openacs-4/packages/imsld/www/admin/monitor/environment-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/monitor/environment-edit.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/imsld/www/admin/monitor/environment-edit.tcl 29 Oct 2009 11:10:00 -0000 1.2 +++ openacs-4/packages/imsld/www/admin/monitor/environment-edit.tcl 15 Nov 2019 09:09:58 -0000 1.3 @@ -2,7 +2,7 @@ ad_page_contract { - Adds/removes an URL from an environment + Adds/removes a URL from an environment @author Derick Leony (derick@inv.it.uc3m.es) @creation-date 2008-06-25 Index: openacs-4/packages/imsld/www/gsi/gspread/imsld-gspread-configure.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/gsi/gspread/imsld-gspread-configure.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/imsld/www/gsi/gspread/imsld-gspread-configure.tcl 23 Jun 2009 17:20:38 -0000 1.1 +++ openacs-4/packages/imsld/www/gsi/gspread/imsld-gspread-configure.tcl 15 Nov 2019 09:09:58 -0000 1.2 @@ -76,7 +76,7 @@ set form_type "Local File" set access_to_form "$tmp_form_url" } elseif {![string eq $tmp_form_url ""]} { - #is form linket to a url? (it is not a local file and the value is set) + #is form linket to a URL? (it is not a local file and the value is set) set form_already_set_p "t" set form_type "URL" set access_to_form "$tmp_form_url" Index: openacs-4/packages/imsld/www/gsi/gspread/imsld-gspread-view-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/gsi/gspread/imsld-gspread-view-form.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/imsld/www/gsi/gspread/imsld-gspread-view-form.tcl 23 Jun 2009 17:20:38 -0000 1.1 +++ openacs-4/packages/imsld/www/gsi/gspread/imsld-gspread-view-form.tcl 15 Nov 2019 09:09:58 -0000 1.2 @@ -13,7 +13,7 @@ #three options: #1- there is no form #2- the form is in a local file -#3- the form is in a url supported by TclCurl +#3- the form is in a URL supported by TclCurl #4- malformed db_1row get_url {