Index: openacs-4/packages/xowiki/xowiki.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v
diff -u -r1.143 -r1.144
--- openacs-4/packages/xowiki/xowiki.info 11 Aug 2011 13:07:32 -0000 1.143
+++ openacs-4/packages/xowiki/xowiki.info 22 Mar 2012 10:42:55 -0000 1.144
@@ -10,10 +10,10 @@
t
xowiki
-
+
Gustaf Neumann
- A more generic xotcl-based wikis example with object types
-and subtypes based on the content repository (with category support)
+ A xotcl-based enterprise wiki wiki system with different object types
+based on the content OpenACS repository
2011-05-16
Gustaf Neumann, WU Wien
<pre>
@@ -56,12 +56,12 @@
BSD-Style
0
-
+
-
+
Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.208 -r1.209
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 21 Mar 2012 13:45:31 -0000 1.208
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 22 Mar 2012 10:42:55 -0000 1.209
@@ -791,7 +791,7 @@
set file_object [$package_id get_page_from_name -name $entry_info(name) -parent_id $entry_info(parent_id)]
if {$file_object ne ""} {
# file entry exists already, create a new revision
- #my msg "new revision"
+ #my msg "new revision (value $value)"
$file_object set import_file [my set tmpfile]
$file_object set mime_type $content_type
$file_object set title $value
Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -r1.86 -r1.87
--- openacs-4/packages/xowiki/tcl/link-procs.tcl 18 Mar 2012 16:10:45 -0000 1.86
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl 22 Mar 2012 10:42:55 -0000 1.87
@@ -305,6 +305,7 @@
}
if {[my exists extra_query_parameter]} {
set internal_href [export_vars -base $internal_href [my extra_query_parameter]]
+ set internal_href [string map [list ' "'"] $internal_href]
if {[my exists revision_id]} {append href &revision_id=[my revision_id]}
} else {
if {[my exists revision_id]} {append internal_href ?revision_id=[my revision_id]}
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.305 -r1.306
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 21 Mar 2012 13:45:32 -0000 1.305
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 22 Mar 2012 10:42:55 -0000 1.306
@@ -437,7 +437,8 @@
$package_id set delivery \
[expr {$use_bg_delivery ? "ad_returnfile_background" : "ns_returnfile"}]
if {[my exists_query_parameter filename]} {
- ns_set put [ns_conn outputheaders] Content-Disposition "attachment;filename=\"[my query_parameter filename]\""
+ set fn [::xo::backslash_escape \" [my query_parameter filename]]
+ ns_set put [ns_conn outputheaders] Content-Disposition "attachment;filename=\"$fn\""
}
#my log "--F FILE=[my full_file_name] // $mime_type"
set geometry [::xo::cc query_parameter geometry ""]