Index: openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl 14 Sep 2008 17:31:38 -0000 1.25
+++ openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl 30 Oct 2008 22:54:59 -0000 1.26
@@ -80,7 +80,7 @@
#xowiki.search# ·
#xowiki.index#
}
}
Index: openacs-4/packages/xowiki/tcl/syndicate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/syndicate-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/xowiki/tcl/syndicate-procs.tcl 24 Sep 2008 09:55:06 -0000 1.30
+++ openacs-4/packages/xowiki/tcl/syndicate-procs.tcl 30 Oct 2008 22:54:59 -0000 1.31
@@ -452,7 +452,9 @@
}
default {
- error "Unssupported schema [RSS-client getRSSVersion $doc]"
+ my set errorMessage "Unsupported RSS schema [RSS-client getRSSVersion $doc]"
+ return
+ #error "Unsupported schema [RSS-client getRSSVersion $doc]"
}
}
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.304 -r1.305
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 29 Oct 2008 14:14:21 -0000 1.304
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 30 Oct 2008 22:54:59 -0000 1.305
@@ -1991,6 +1991,9 @@
{-extra_where_clause ""}
{-h_where ""}
{-always_queried_attributes {_name _last_modified _creation_user}}
+ {-orderby ""}
+ {-page_size 20}
+ {-page_number ""}
} {
#
# Get query attributes for all tables (to allow e.g. sorting by time)
@@ -2041,9 +2044,8 @@
}
#my msg filter_clause=$filter_clause
- set orderby ""; set page_size 20; set page_number ""
# -parent_id empty means to get instances, regardless of
- # parent_id. Under the assumption, the page_template constrains
+ # parent_id. Under the assumption, page_template constrains
# the query enough to make it fast...
set sql [::xowiki::FormPage instance_select_query \
-select_attributes $sql_atts \
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.195 -r1.196
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 29 Oct 2008 15:17:19 -0000 1.195
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 30 Oct 2008 22:54:59 -0000 1.196
@@ -18,8 +18,6 @@
set footer ""
set description [my get_description $content]
- #set ::META(description) $description
-
if {[ns_conn isconnected]} {
set url "[ns_conn location][::xo::cc url]"
set package_url "[ns_conn location][$package_id package_url]"
@@ -220,10 +218,18 @@
set template_file [my query_parameter "template_file" \
[::$package_id get_parameter template_file view-default]]
+ # if the template_file does not have a path, assume it in xowiki/www
if {![regexp {^[./]} $template_file]} {
set template_file /packages/xowiki/www/$template_file
}
+
set header_stuff [::xo::Page header_stuff]
+ if {[info command ::template::head::add_meta] ne ""} {
+ template::head::add_meta -name language -content [my lang]
+ template::head::add_meta -name description -content [my description]
+ template::head::add_meta -name keywords -content [$package_id get_parameter keywords ""]
+ }
+
#
# pass variables for properties doc and body
# example: ::xo::Page set_property body class "yui-skin-sam"
@@ -1504,14 +1510,18 @@
Page instproc diff {} {
my instvar package_id
+
set compare_id [my query_parameter "compare_revision_id" 0]
if {$compare_id == 0} {
return ""
}
- set my_page [::xowiki::Package instantiate_page_from_id -revision_id [my set revision_id]]
+ ::xo::Page requireCSS /resources/xowiki/xowiki.css
+ set my_page [::xowiki::Package instantiate_page_from_id -revision_id [my revision_id]]
$my_page volatile
- set html1 [$my_page render]
+ if {[catch {set html1 [$my_page render]} errorMsg]} {
+ set html2 "Error rendering [my revision_id]: $errorMsg"
+ }
set text1 [ad_html_text_convert -from text/html -to text/plain -- $html1]
set user1 [::xo::get_user_name [$my_page set creation_user]]
set time1 [$my_page set creation_date]
@@ -1522,7 +1532,9 @@
$other_page volatile
#$other_page absolute_links 1
- set html2 [$other_page render]
+ if {[catch {set html2 [$other_page render]} errorMsg]} {
+ set html2 "Error rendering $compare_id: $errorMsg"
+ }
set text2 [ad_html_text_convert -from text/html -to text/plain -- $html2]
set user2 [::xo::get_user_name [$other_page set creation_user]]
set time2 [$other_page set creation_date]
@@ -1531,12 +1543,16 @@
set title "Differences for [my set name]"
set context [list $title]
+
+ #set content [::util::html_diff -old $html2 -new $html1 -show_old_p t]
set content [::xowiki::html_diff $text2 $text1]
+
::xo::Page set_property doc title $title
array set property_doc [::xo::Page get_property doc]
+ set header_stuff [::xo::Page header_stuff]
$package_id return_page -adp /packages/xowiki/www/diff -variables {
- content title context
+ content title context header_stuff
time1 time2 user1 user2 revision_id1 revision_id2 property_doc
}
}
Index: openacs-4/packages/xowiki/www/diff.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/diff.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xowiki/www/diff.adp 5 Oct 2008 01:50:44 -0000 1.3
+++ openacs-4/packages/xowiki/www/diff.adp 30 Oct 2008 22:54:59 -0000 1.4
@@ -3,6 +3,7 @@
property_doc
@context;noquote@
+ @header_stuff;noquote@
-
+
+
+ @header_stuff;noquote@
+
+
Index: openacs-4/packages/xowiki/www/oacs-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/oacs-view.adp,v
diff -u -r1.52 -r1.53
--- openacs-4/packages/xowiki/www/oacs-view.adp 14 Sep 2008 17:31:38 -0000 1.52
+++ openacs-4/packages/xowiki/www/oacs-view.adp 30 Oct 2008 22:54:59 -0000 1.53
@@ -1,4 +1,4 @@
-
+
@title;noquote@
@context;noquote@
@@ -69,7 +69,7 @@
#xowiki.search# ·
#xowiki.index#
Index: openacs-4/packages/xowiki/www/view-book-no-ajax.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/view-book-no-ajax.adp,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/xowiki/www/view-book-no-ajax.adp 14 Sep 2008 17:31:38 -0000 1.8
+++ openacs-4/packages/xowiki/www/view-book-no-ajax.adp 30 Oct 2008 22:54:59 -0000 1.9
@@ -1,4 +1,4 @@
-
+
@title;noquote@
@context;noquote@
Index: openacs-4/packages/xowiki/www/view-book.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/view-book.adp,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/xowiki/www/view-book.adp 14 Sep 2008 17:31:38 -0000 1.19
+++ openacs-4/packages/xowiki/www/view-book.adp 30 Oct 2008 22:54:59 -0000 1.20
@@ -1,4 +1,4 @@
-
+
@title;noquote@
@context;noquote@
Index: openacs-4/packages/xowiki/www/view-default.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/view-default.adp,v
diff -u -r1.48 -r1.49
--- openacs-4/packages/xowiki/www/view-default.adp 14 Sep 2008 17:31:38 -0000 1.48
+++ openacs-4/packages/xowiki/www/view-default.adp 30 Oct 2008 22:54:59 -0000 1.49
@@ -1,4 +1,4 @@
-
+
@title;noquote@
@context;noquote@
@@ -63,7 +63,7 @@
#xowiki.search# ·
#xowiki.index#
@top_includelets;noquote@
Index: openacs-4/packages/xowiki/www/view-links.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/view-links.adp,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/xowiki/www/view-links.adp 14 Sep 2008 17:31:38 -0000 1.38
+++ openacs-4/packages/xowiki/www/view-links.adp 30 Oct 2008 22:54:59 -0000 1.39
@@ -1,4 +1,4 @@
-
+
@top_includelets;noquote@
Index: openacs-4/packages/xowiki/www/view-plain.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/view-plain.adp,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/xowiki/www/view-plain.adp 14 Sep 2008 17:31:38 -0000 1.34
+++ openacs-4/packages/xowiki/www/view-plain.adp 30 Oct 2008 22:54:59 -0000 1.35
@@ -1,4 +1,4 @@
-
+