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.3 -r1.4
--- openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl 15 Mar 2007 12:10:49 -0000 1.3
+++ openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl 17 Mar 2007 23:13:21 -0000 1.4
@@ -17,7 +17,7 @@
{extra_header_stuff ""}
}
- ADP_Generator instproc before_render {} {
+ ADP_Generator instproc before_render {obj} {
# just a hook, might be removed later
}
@@ -76,44 +76,7 @@
ADP_Generator instproc footer_part {} {
if {![my footer]} {return ""}
- return {
-
-
-
-
-
-
-
-
-
-
-
-
-#xowiki.references_label# @references;noquote@ @lang_links.found;noquote@
-
-
-#xowiki.create_this_page_in_language# @lang_links.undefined;noquote@
-
-
-#xowiki.your_tags_label#: @tags_with_links;noquote@
-(#xowiki.edit_link#,
-#xowiki.popular_tags_link#)
-
-
-
-
-
-
-Categories: @per_object_categories_with_links;noquote@
-
-
-
- #general-comments.Comments#
-
-
-
- @gc_link;noquote@
-}
+ return "@footer;noquote@"
}
ADP_Generator instproc content_part {} {
@@ -145,8 +108,9 @@
set name [namespace tail [self]]
set filename [file dirname [info script]]/../www/$name.adp
# generate the adp file, if it does not exist
- if {![file exists $filename]} {
- set f [open $filename w]
+ if {[catch {set f [open $filename w]} errorMsg]} {
+ my log "Error: cannot overwrite $filename, ignoring possible changes"
+ } else {
puts -nonewline $f [my generate]
close $f
}
@@ -187,7 +151,7 @@
} \
- -proc before_render {} {
+ -proc before_render {page} {
::xo::cc set_parameter weblog_page weblog-portlet
} \
-proc content_part {} {
@@ -216,17 +180,19 @@
+ summary="0" noparens="1">
+ portlet="tags -decoration plain">
+ portlet="tags -popular 1 -limit 30 -decoration plain">
+
+Contributors