Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -N -r1.239.2.3 -r1.239.2.4
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 26 Feb 2019 18:06:43 -0000 1.239.2.3
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 10 Mar 2019 21:06:20 -0000 1.239.2.4
@@ -1750,7 +1750,7 @@
set entry "[ns_quotehtml [$page name]] contains [join $unresolved {, }]"
lappend pages_with_unresolved_items $entry
} else {
- $page destroy
+ # $page destroy
}
}
}
@@ -4804,7 +4804,27 @@
}
}
+namespace eval ::xowiki::includelet {
+ ::xowiki::IncludeletClass create community-link \
+ -superclass ::xowiki::Includelet \
+ -parameter {
+ {__decoration none}
+ {parameter_declaration {
+ {-text ""}
+ {-url ""}
+ }}
+ } -instproc render {} {
+ :get_parameters
+ if {[info commands ::dotlrn_community::get_community_id] ne ""} {
+ set community_id [::dotlrn_community::get_community_id]
+ set base_url [dotlrn_community::get_community_url $community_id]
+
+ return [subst {[ns_quotehtml $text]}]
+ }
+ }
+}
+
::xo::library source_dependent
#