Index: openacs-4/packages/xowiki/www/prototypes/ical.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/prototypes/ical.page,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xowiki/www/prototypes/ical.page 16 Sep 2008 15:08:07 -0000 1.4
+++ openacs-4/packages/xowiki/www/prototypes/ical.page 17 Jun 2010 10:41:42 -0000 1.5
@@ -36,7 +36,7 @@
DTSTART:$dtstart
DTEND:$dtend
$body
-URL:[[my package_id] pretty_link -absolute true [my name]]
+URL:[my pretty_link -absolute true]
END:VEVENT
}]
}
Index: openacs-4/packages/xowiki/www/prototypes/news.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/prototypes/news.page,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/xowiki/www/prototypes/news.page 4 Jun 2010 12:22:43 -0000 1.15
+++ openacs-4/packages/xowiki/www/prototypes/news.page 17 Jun 2010 10:41:42 -0000 1.16
@@ -34,8 +34,14 @@
-forms $entries_of \
-package_id $package_id]
set template_id [lindex $forms 0]
- set form_link [$package_id pretty_link [$template_id name]]
- set new_link [$package_id make_link -link $form_link $template_id create-new return_url]
+ if {$template_id ne ""} {
+ set form_link [$template_id pretty_link]
+ set new_link [$package_id make_link -link $form_link $template_id create-new return_url]
+ } else {
+ ns_log notice "Warning: could not resolve $entries_of with -parent_id [my set current_folder_id]"
+ set form_link ""
+ set new_link ""
+ }
[my info parent] set __link(new) $new_link
@@ -47,9 +53,7 @@
my instvar package_id name title creator creation_user pretty_date description publish_date
[my set __parent] instvar weblog_obj
- set link [::xowiki::Includelet detail_link \
- -package_id $package_id -name $name \
- -instance_attributes [my get_instance_attributes]]
+ set link [my detail_link]
regsub -all & $link "&" link
set more [expr {[$weblog_obj summary] ?
" \[#xowiki.weblog-more#\]" : ""}]
Index: openacs-4/packages/xowiki/www/prototypes/weblog-portlet.page
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/prototypes/Attic/weblog-portlet.page,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/xowiki/www/prototypes/weblog-portlet.page 20 Jun 2008 09:50:42 -0000 1.15
+++ openacs-4/packages/xowiki/www/prototypes/weblog-portlet.page 17 Jun 2010 10:41:42 -0000 1.16
@@ -26,8 +26,7 @@
# We get the instance_attributes, if these are available. For the
# time being, we have these only in full mode (no summary)
- set link [::xowiki::Includelet detail_link -package_id $package_id -name $name \
- -instance_attributes [my get_instance_attributes]]
+ set link [my detail_link]
set show_more [expr {[$weblog_obj summary] && [my exists text] && [my text] ne ""}]
set more [expr {$show_more ?
" \[#xowiki.weblog-more#\]" : ""}]