Index: openacs-4/packages/xowiki/www/admin/export.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/export.tcl,v diff -u -r1.24.2.2 -r1.24.2.3 --- openacs-4/packages/xowiki/www/admin/export.tcl 8 May 2019 19:59:57 -0000 1.24.2.2 +++ openacs-4/packages/xowiki/www/admin/export.tcl 7 Feb 2020 08:44:05 -0000 1.24.2.3 @@ -5,7 +5,7 @@ @creation-date Aug 11, 2006 @cvs-id $Id$ - @param object_type + @param object_type } -parameter { {-object_type ::xowiki::Page} {-objects ""} @@ -23,11 +23,11 @@ foreach o $objects { ::$package_id get_lang_and_name -default_lang [::xo::cc lang] -path $o lang stripped_name set parent_id [::$package_id get_parent_and_name -lang $lang \ - -path $stripped_name -parent_id $folder_id \ - parent local_name] + -path $stripped_name -parent_id $folder_id \ + parent local_name] #ns_log notice "lookup of $o in $folder_id returns [::xo::db::CrClass lookup -name $o -parent_id $parent_id]" if {[set item_id [::xo::db::CrClass lookup -name $local_name -parent_id $parent_id]] != 0} { - set items($item_id) 1 + set items($item_id) 1 } } }