Index: openacs-4/packages/xowiki/lib/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/lib/view.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/xowiki/lib/view.tcl	13 Sep 2012 16:05:26 -0000	1.12
@@ -0,0 +1,30 @@
+set parameter [subst {
+    {-m view}
+    {-return_url "[ns_conn url]"}
+    {-template_file "view-links"}
+    {-folder_id 0}
+}]
+
+# TODO the following should be done more elegantly
+set actual_query [expr {[info exists template_file] ? "template_file=$template_file" : " "}]
+
+if {[info exists url]} {
+    # new style, the url is sufficient
+    ::xowiki::Package initialize -parameter $parameter -url $url -actual_query $actual_query 
+} else {
+    # old style, use item_id
+    set page [::xowiki::Package instantiate_page_from_id \
+		  -item_id $item_id -parameter $parameter]
+    ::xo::cc export_vars
+}
+
+set html [::$package_id invoke -method $m]
+set ::xowiki_head [::xo::Page header_stuff]
+
+if {![info exists css]} {
+    set fn [get_server_root]/packages/xowiki/www/resources/xowiki.css
+    set F [open $fn]; set css [read $F]; close $F
+    set css "<style type='text/css'>$css</style>"
+    set html $css$html
+}
+