Index: openacs-4/packages/xowiki/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/view.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/xowiki/www/view.tcl 13 Apr 2006 19:19:37 -0000 1.15
+++ openacs-4/packages/xowiki/www/view.tcl 3 May 2006 12:03:23 -0000 1.16
@@ -38,19 +38,19 @@
if {[$page exists master] && $master == 1} {set master [$page set master]}
-# export page_title, text, and lang_links to current scope
-$page instvar page_title title text lang_links
+# export title, text, and lang_links to current scope
+$page instvar title name text lang_links
if {$master} {
- set context [list $page_title]
+ set context [list $title]
set base [apm_package_url_from_id [ad_conn package_id]]
- set rev_link [export_vars -base ${base}revisions {{page_id $item_id} title}]
+ set rev_link [export_vars -base ${base}revisions {{page_id $item_id} name}]
set edit_link [export_vars -base ${base}edit {item_id}]
set delete_link [export_vars -base ${base}delete {item_id}]
set new_link [export_vars -base ${base}edit {object_type}]
set index_link [export_vars -base ${base} {}]
- set return_url [::xowiki::Page pretty_link $title]
+ set return_url [::xowiki::Page pretty_link $name]
set gc_link [general_comments_create_link $item_id $return_url]
set gc_comments [general_comments_get_comments $item_id $return_url]
@@ -59,7 +59,7 @@
set __including_page $page
set template_code [template::adp_compile -string $template]
if {[catch {set content [template::adp_eval template_code]} errmsg]} {
- set content "Error in Page $title: $errmsg
$content"
+ set content "Error in Page $name: $errmsg
$content"
} else {
ns_return 200 text/html $content
}