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 -N -r1.542.2.162 -r1.542.2.163 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 13 Jul 2022 11:00:12 -0000 1.542.2.162 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 22 Aug 2022 17:06:40 -0000 1.542.2.163 @@ -1311,12 +1311,15 @@ } Page proc import {-user_id -package_id -folder_id {-replace 0} -objects} { - :log "DEPRECATED" - if {![info exists package_id]} {set package_id [::xo::cc package_id]} + ad_log_deprecated "::xowiki::Page proc" "import" "::$package_id import ..." + + if {![info exists package_id]} { + set package_id [::xo::cc package_id] + } set cmd [list ::$package_id import -replace $replace] - if {[info exists user_id]} {lappend cmd -user_id $user_id} - if {[info exists objects]} {lappend cmd -objects $objects} + if {[info exists user_id]} {lappend cmd -user_id $user_id} + if {[info exists objects]} {lappend cmd -objects $objects} {*}$cmd } @@ -4128,7 +4131,7 @@ # empty. In these cases, call child-resources manually. # if {$html eq "" && [:is_folder_page]} { - ns_log warning "render_content: [:item_id] '${:name}' is a folder page without a content (deprecated)" + ad_log_deprecated "folder page without a content" "[:item_id] '${:name}'" set html [:include child-resources] }