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.67 -r1.68 --- openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 4 Jul 2008 15:29:26 -0000 1.67 +++ openacs-4/packages/imsld/tcl/imsld-parse-procs.tcl 22 Oct 2008 10:48:00 -0000 1.68 @@ -709,11 +709,21 @@ set found_id_in_list 0 foreach filex $filex_list { set filex_href [imsld::parse::get_attribute -node $filex -attr_name href] - set filex_id [imsld::fs::file_new -href $filex_href \ + + +# set filex_id [imsld::fs::file_new -href $filex_href \ +# -path_to_file $filex_href \ +# -type file \ +# -complete_path "[ns_urldecode ${tmp_dir}/${filex_href}]"] + + set manifest_identifier [imsld::parse::get_attribute -node $manifest -attr_name identifier] + + set filex_id [imsld::xowiki::file_new -href $filex_href \ -path_to_file $filex_href \ + -file_name "${manifest_identifier}/${filex_href}" \ -type file \ -complete_path "[ns_urldecode ${tmp_dir}/${filex_href}]"] - + if { !$filex_id } { # an error ocurred when creating the file return [list 0 "[_ imsld.lt_The_file_filex_href_w]"] @@ -733,6 +743,7 @@ # map resource with file relation_add -extra_vars $extra_vars imsld_res_files_rel $resource_id $filex_id + # relation_add -extra_vars $extra_vars imsld_resource_xowiki_rel $resource_id $filex_id } if { ![empty_string_p $resource_href] && !$found_p } {