Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -r1.306 -r1.307 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 31 Oct 2008 02:01:30 -0000 1.306 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 4 Nov 2008 20:46:19 -0000 1.307 @@ -1120,7 +1120,7 @@ -page [self] \ -type $link_type -name $name -lang $lang -anchor $anchor \ -stripped_name $normalized_name -label $label \ - -folder_id $parent_id -package_id $package_id + -parent_id $parent_id -package_id $package_id if {[catch {eval [self]::link configure $options} errorMsg]} { ns_log error "$errorMsg\n$::errorInfo" @@ -1555,7 +1555,7 @@ -page [self] \ -type image -name $name -lang "" \ -stripped_name $stripped_name -label $label \ - -folder_id $parent_id -package_id $package_id] + -parent_id $parent_id -package_id $package_id] set image "
[$l render]
" } else { set image "" Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -r1.197 -r1.198 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 31 Oct 2008 09:24:39 -0000 1.197 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 4 Nov 2008 20:46:19 -0000 1.198 @@ -190,7 +190,7 @@ set l [Link create new -destroy_on_cleanup \ -page [self] -type language -stripped_name $req_local_name \ -name ${default_lang}:$req_local_name -lang $default_lang \ - -label $req_local_name -folder_id $folder_id \ + -label $req_local_name -parent_id $folder_id \ -package_id $package_id -init \ -return_only undefined] $l render