Index: openacs-4/packages/datamanager/www/import2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/import2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/datamanager/www/import2.tcl 3 Apr 2018 20:36:18 -0000 1.3 +++ openacs-4/packages/datamanager/www/import2.tcl 15 Nov 2019 08:48:09 -0000 1.4 @@ -13,7 +13,7 @@ set xml_filename ${upload_file.tmpfile} set fd [open $xml_filename r] ; set xml [read $fd] ; close $fd #set doc [dom parse $xml] -dom parse [::tDOM::xmlReadFile $xml_filename] doc +dom parse [::tdom::xmlReadFile $xml_filename] doc set root [$doc documentElement] # check variables @@ -35,7 +35,7 @@ set countfaqs [llength $faqNodes] if {$faq_pid < 0} { - set faq_info "Debes a�adir primero el paquete FAQ desde panel de control" + set faq_info "Debes añadir primero el paquete FAQ desde panel de control" } else { foreach faqNode $faqNodes { set faq_name "[$faqNode selectNodes {string(name)}]$sufix" @@ -47,8 +47,8 @@ # obtenemos el user_id del creation_user set faq_creation_user [db_string get_user_id "select user_id from users where username = :faq_username"] - # Obtenemos el context_id seg�n la conexi�n. - # Para el caso de una comunidad habr� que psarle el community_id + # Obtenemos el context_id según la conexión. + # Para el caso de una comunidad habrá que psarle el community_id set faq_context_id [datamanager::get_faq_package_id -community_id $this_comm_id] set new_faq_id [db_exec_plsql create_faq { select faq__new_faq ( Index: openacs-4/packages/datamanager/www/admin/import-communities.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/admin/import-communities.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/datamanager/www/admin/import-communities.tcl 3 Apr 2018 20:36:18 -0000 1.2 +++ openacs-4/packages/datamanager/www/admin/import-communities.tcl 15 Nov 2019 08:48:09 -0000 1.3 @@ -15,7 +15,7 @@ set xml_filename ${upload_file.tmpfile} set fd [open $xml_filename r] ; set xml [read $fd] ; close $fd #set doc [dom parse $xml] -dom parse [::tDOM::xmlReadFile $xml_filename] doc +dom parse [::tdom::xmlReadFile $xml_filename] doc set root [$doc documentElement] # check variables @@ -81,7 +81,7 @@ set user_id [db_string user_id "select user_id from users where username = :username and authority_id = :authority_id" -default "-300"] if {$user_id ne -300} { - # A�adimos el usuario $user_id a la comunidad + # Añadimos el usuario $user_id a la comunidad #dotlrn_community::member_p comm user if {![dotlrn_community::member_p $community_id $user_id]} { dotlrn_community::add_user -rel_type $rel_type $community_id $user_id @@ -218,8 +218,8 @@ # obtenemos el user_id del creation_user set faq_creation_user [db_string get_user_id "select user_id from users where username = :faq_username"] - # Obtenemos el context_id seg�n la conexi�n. - # Para el caso de una comunidad habr� que psarle el community_id + # Obtenemos el context_id según la conexión. + # Para el caso de una comunidad habrá que psarle el community_id set faq_context_id [datamanager::get_faq_package_id -community_id $community_id] if {$faq_context_id > 0} { set new_faq_id [db_exec_plsql create_faq { Index: openacs-4/packages/datamanager/www/admin/import-users.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/admin/import-users.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/datamanager/www/admin/import-users.tcl 3 Apr 2018 20:36:18 -0000 1.2 +++ openacs-4/packages/datamanager/www/admin/import-users.tcl 15 Nov 2019 08:48:09 -0000 1.3 @@ -13,7 +13,7 @@ set xml_filename ${upload_file.tmpfile} set fd [open $xml_filename r] ; set xml [read $fd] ; close $fd #set doc [dom parse $xml] -dom parse [::tDOM::xmlReadFile $xml_filename] doc +dom parse [::tdom::xmlReadFile $xml_filename] doc set root [$doc documentElement] # check variables @@ -204,7 +204,7 @@ set conttotal [expr $conttotal + 1] } - #fin importaci�n usuarios + #fin importación usuarios lappend results [format " Total users =%s" $conttotal] lappend results [format " Total users imported =%s" $contbien] Index: openacs-4/packages/curriculum-tracker/tcl/curriculum-tracker-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-tracker/tcl/curriculum-tracker-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/curriculum-tracker/tcl/curriculum-tracker-procs.tcl 4 Apr 2006 06:50:02 -0000 1.1 +++ openacs-4/packages/curriculum-tracker/tcl/curriculum-tracker-procs.tcl 15 Nov 2019 08:52:51 -0000 1.2 @@ -33,7 +33,7 @@ } # Parser - dom parse [::tDOM::xmlReadFile $xmlfile] document + dom parse [::tdom::xmlReadFile $xmlfile] document # DOM document = DOM root $document documentElement root Index: openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl 9 May 2018 15:33:33 -0000 1.7 +++ openacs-4/packages/scorm-core/tcl/scorm-core-procs.tcl 15 Nov 2019 08:55:27 -0000 1.8 @@ -162,7 +162,7 @@ Transform the manifest using ilias's normalizing xsl. } { set xsl_src "[acs_root_dir]/packages/scorm-importer/templates/xsl/op/op-scorm13.xsl" - return [[$manifest xslt [dom parse [::tDOM::xmlReadFile $xsl_src]]] documentElement] + return [[$manifest xslt [dom parse [::tdom::xmlReadFile $xsl_src]]] documentElement] } ad_proc scorm_core::get_manifest {