Initial Import

intranet-wiki.info

+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="intranet-wiki" url="http://openacs.org/repository/apm/packages/intranet-wiki" type="apm_application">
+    <package-name>Project/Open Wiki Interface</package-name>
+    <pretty-plural>Project/Open Wiki Interface</pretty-plural>
+    <initial-install-p>f</initial-install-p>
+    <singleton-p>t</singleton-p>
+    <auto-mount>intranet-wiki</auto-mount>
+
+    <version name="3.0.0" url="http://openacs.org/repository/download/apm/intranet-wiki-3.0.0.apm">
+        <owner url="mailto:frank.bergmann@project-open.com">Frank Bergmann</owner>
+        <summary>Integration between Project/Open and the OpenACS Wiki system</summary>
+        <vendor url="http://www.project-open.com/">Project/Open</vendor>
+        <description format="text/plain">This package provides an integration between P/O business objects (project, customer, users, ...) and Wiki pages via several plug-in components</description>
+
+        <provides url="wiki" version="0.1"/>
+        <requires url="intranet-core" version="3.0.0"/>
+
+        <callbacks>
+        </callbacks>
+        <parameters>
+        </parameters>
+
+    </version>
+</package>

sql/postgresql/intranet-wiki-create.sql

+-- /packages/intranet-wiki/sql/postgresql/intranet-wiki-create.sql
+--
+-- Copyright (c) 2003-2004 Project/Open
+--
+-- All rights reserved. Please check
+-- http://www.project-open.com/license/ for details.
+--
+-- @author frank.bergmann@project-open.com
+
+-- Sets up an interface to the OpenACS Wiki System
+
+---------------------------------------------------------
+-- delete potentially existing menus and plugins if this 
+-- file is sourced multiple times during development...
+
+select im_component_plugin__del_module('intranet-wiki');
+select im_menu__del_module('intranet-wiki');
+
+
+---------------------------------------------------------
+-- Register the component:
+
+create or replace function inline_0 ()
+returns integer as ' 
+declare
+    v_plugin            integer;
+begin
+    -- Home Page
+    -- Set the wiki to the very end.
+    --
+    v_plugin := im_component_plugin__new (
+	null,					-- plugin_id
+	''acs_object'',				-- object_type
+	now(),					-- creation_date
+	null,					-- creation_user
+	null,					-- creation_ip
+	null,					-- context_id
+	''Home Wiki Component'',		-- plugin_name
+	''intranet-wiki'',			-- package_name
+        ''right'',				-- location
+	''/intranet/index'',			-- page_url
+        null,					-- view_name
+        60,					-- sort_order
+        ''im_wiki_home_component''		-- component_tcl
+    );
+    return 0;
+end;' language 'plpgsql';
+
+select inline_0 ();
+
+drop function inline_0 ();
+

sql/postgresql/intranet-wiki-drop.sql

+-- /packages/intranet-wiki/sql/postgresql/intranet-wiki-create.sql
+--
+-- Copyright (c) 2003-2004 Project/Open
+--
+-- All rights reserved. Please check
+-- http://www.project-open.com/license/ for details.
+--
+-- @author frank.bergmann@project-open.com
+-- avila@digiteix.com
+
+-- Sets up an interface to the Wiki System system
+
+
+---------------------------------------------------------
+-- delete potentially existing menus and plugins
+
+select im_component_plugin__del_module('intranet-wiki');
+select im_menu__del_module('intranet-wiki');
+

tcl/intranet-wiki-procs.tcl

+# /tcl/intranet-wiki-procs.tcl
+
+ad_library {
+    Wiki Interface Library
+    @author frank.bergmann@project-open.com
+    @creation-date  27 April 2005
+}
+
+ad_proc im_wiki_home_component { } {
+    Wiki component to be shown at the system home page
+} {
+    set folder_id [wiki::get_folder_id]
+    set colspan 1
+	
+    # Get the list of currently existing Wiki installations
+    set wikis_sql "
+	select
+		ap.package_id,
+		cf.folder_id,
+		cr.title
+	from
+		apm_packages ap,
+		cr_folders cf,
+		cr_items ci,
+		cr_revisions cr
+	where
+		ap.package_key = 'wiki'
+		and cf.package_id = ap.package_id
+		and ci.parent_id = cf.folder_id
+		and ci.name = 'index'
+		and cr.revision_id = ci.live_revision
+    "
+    set wikis_html ""
+    db_foreach wikis $wikis_sql {
+	append wikis_html "<tr><td>
+	  <A href="$package_id>$title</a>
+	</td></tr>\n"
+    }
+
+    set html "
+<table>
+<tr>
+  <td colspan=$colspan>
+    &nbsp;
+  </td>
+</tr>
+<tr>
+  <td class=rowtitle colspan=$colspan>Title</td>
+</tr>
+$wikis_html
+</table>
+"
+  
+    return [im_table_with_title "Wikis" $html]
+}

www/index.adp

+<master src="../../intranet-core/www/master">
+<property name="title">Wiki</property>
+<property name="main_navbar_label">home</property>
+
+@wiki_html;noquote@
+

www/index.tcl

+# /packages/intranet-filestorage/www/index.tcl
+#
+# Copyright (C) 2003-2004 Project/Open
+#
+# All rights reserved. Please check
+# http://www.project-open.com/ for licensing details.
+
+ad_page_contract {
+    Show the list of current task and allow the project
+    manager to create new tasks.
+
+    @author fraber@project-open.com
+    @creation-date Nov 2003
+} {
+
+}
+
+set wiki_html [im_wiki_home_component]
+
+
+#db_release_unused_handles
+#ad_returnredirect "/intranet/"
+
+
+