Index: openacs-4/packages/xowiki/lib/view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/lib/view.tcl,v diff -u -N --- openacs-4/packages/xowiki/lib/view.tcl 30 Nov 2006 16:34:15 -0000 1.8 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,29 +0,0 @@ -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] - -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 "" - set html $css$html -} -