- Changes for cosine to add an iframe widget on the home page

  showing a Wiki screen

lib/xowiki-page.adp

+<iframe src="@page_url@" width="@iframe_width@" height="@iframe_height@" name="XoWiki">
+  <p>No IFrames supported...</p>
+</iframe>

lib/xowiki-page.tcl

+# /packages/intranet-wiki/lib/xowiki-page.tcl
+#
+# Copyright (C) 2015 ]project-open[
+#
+# All rights reserved. Please check
+# https://www.project-open.com/license/ for details.
+
+# ----------------------------------------------------------------------
+# Variables and Parameters
+# ---------------------------------------------------------------------
+
+# expects variables:
+# - page
+# - iframe_width
+# - iframe_height
+
+
+if {![info exists page]} { set page "/xowiki/index" }
+
+set page_url [export_vars -base "/intranet-wiki/xowiki-page" {{page $page}}]

lib/xowiki-project-portlet.adp

-
-@html;noquote@
+@html;noquote@
\ No newline at end of file

sql/postgresql/intranet-wiki-create.sql

@@ -309,3 +309,46 @@ end;$$ language 'plpgsql';
 select inline_0 ();
 drop function inline_0 ();
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+create or replace function inline_0 ()
+returns integer as $$
+declare
+	v_plugin		integer;
+	v_employees		integer;
+BEGIN
+	select group_id into v_employees from groups where group_name = 'Employees';
+
+-- Home Page - Set the wiki to the very end.
+	v_plugin := im_component_plugin__new (
+		null, 'im_component_plugin', now(), null, null, null,
+		'Home XoWiki News',			-- plugin_name
+		'intranet-wiki',			-- package_name
+		'bottom',				-- location
+		'/intranet/index',			-- page_url
+		null,					-- view_name
+		60,					-- sort_order
+		'im_xowiki_page_component -page "/xowiki/news"'	-- component_tcl
+	);
+
+	PERFORM acs_permission__grant_permission(v_plugin, v_employees, 'read');
+	return 0;
+end;$$ language 'plpgsql';
+select inline_0 ();
+drop function inline_0 ();
+

tcl/intranet-wiki-procs.tcl

@@ -164,3 +164,26 @@ ad_proc im_wiki_base_component { object_type object_id } {
 
     return $wikis_html
 }
+
+
+ad_proc im_xowiki_page_component {
+    -page
+    { -iframe_width 800 }
+    { -iframe_height 400 }
+} {
+    XoWiki page to be shown somewhere
+} {
+    if {"" eq $page} { return "" }
+
+    set result ""
+    if {[im_package_exists_p xowiki]} {
+	set params [list \
+			[list page $page] \
+			[list iframe_width $iframe_width] \
+			[list iframe_height $iframe_height] \
+	]
+	append result [ad_parse_template -params $params "/packages/intranet-wiki/lib/xowiki-page"]
+    }
+
+    return $result
+}

www/xowiki-page.adp

+<include src="/packages/xowiki/lib/view" url="@page@" template_file="view-bare">

www/xowiki-page.tcl

+# /packages/intranet-wiki/www/xowiki-page.tcl
+#
+# Copyright (C) 2003 - 2009 ]project-open[
+#
+# All rights reserved. Please check
+# https://www.project-open.com/ for licensing details.
+
+ad_page_contract {
+    Shows an XoWiki page with "page" as parameter rather than URL
+    @author fraber@project-open.com
+    @creation-date Nov 2021
+} {
+    page
+}