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 -r1.28.2.64 -r1.28.2.65 --- openacs-4/packages/xowf/tcl/xowf-procs.tcl 9 Jan 2022 20:46:52 -0000 1.28.2.64 +++ openacs-4/packages/xowf/tcl/xowf-procs.tcl 19 Jan 2022 20:04:26 -0000 1.28.2.65 @@ -2011,18 +2011,22 @@ #:log "after allocate lookup of $lang:$stripped_name returned $id, default-lang(${:name})=$default_lang [:nls_language]" if {$id != 0} { # - # The instance exists already. Either use method "m" (if - # provided) or redirect to the item. + # The instance exists already. Either call method "m" + # directly (if provided) or redirect to the item. # if {$m eq ""} { + set base [$package pretty_link -parent_id $parent_id $lang:$stripped_name] + ns_log notice "AFTER ALLOCATE www-create-or-use exists already\n[export_vars -no_base_encode \ + -base $base {return_url template_file}]" + return [$package returnredirect \ [export_vars -no_base_encode \ -base [$package pretty_link -parent_id $parent_id $lang:$stripped_name] \ {return_url template_file}]] } else { set item [::xo::db::CrClass get_instance_from_db -item_id $id] # missing: policy check. - return [$item $m] + return [$item www-$m] } } else { if {$lang ne $default_lang} { @@ -2032,6 +2036,7 @@ } #:msg "We want to create $lang:$stripped_name" set name $lang:$stripped_name + ns_log notice "AFTER ALLOCATE www-create-or-use wanna create $lang:$stripped_name" } } }