Index: openacs-4/packages/xowiki/tcl/import-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/import-procs.tcl,v diff -u -r1.27.2.8 -r1.27.2.9 --- openacs-4/packages/xowiki/tcl/import-procs.tcl 29 Jan 2015 12:35:54 -0000 1.27.2.8 +++ openacs-4/packages/xowiki/tcl/import-procs.tcl 3 Mar 2015 15:59:24 -0000 1.27.2.9 @@ -18,17 +18,24 @@ my destroy_on_cleanup } Importer instproc report_lines {} { - return "[my set log]
" + util_user_message -message "[_ xowiki.Import_successful]" + return "[my set log]
Details
" } Importer instproc report_line {obj operation} { set href [$obj pretty_link] set name [[$obj package_id] external_name -parent_id [$obj parent_id] [$obj name]] + switch $operation { + "added" { set operation "[_ xowiki.added]" } + "replaced" { set operation "[_ xowiki.replaced]" } + "updated" { set operation "[_ xowiki.updated]" } + "inherited" { set operation "[_ xowiki.inherited]" } + } my append log "$operation$name\n" } Importer instproc report {} { my instvar added updated replaced inherited - return "$added objects newly inserted,\ - $updated objects updated, $replaced objects replaced, $inherited inherited (update ignored)

\ + return "$added #xowiki.objects_newly_inserted#,\ + $updated #xowiki.objects_updated#, $replaced #xowiki.objects_replaced#, $inherited #xowiki.inherited_update_ignored#

\ [my report_lines]" }