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 "
"
+ util_user_message -message "[_ xowiki.Import_successful]"
+ return ""
}
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]"
}