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 {
-
- -
Digg!
-
- -
Add to your del.icio.usdel.icio.us
-
- -
-Add to My Yahoo!
-
- -#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